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FOREWORD 


This  report  documents  The  Aerospace  Corporation  effort  on 
Study  Z.  3,  Systems  Cost/Performance  Analysis,  performed  under  NASA 
Contracts  NASW-Z575  and  NASW-27Z7  during  Fiscal  Years  1974  and  1975. 
The  effort  was  directed  by  Mr,  B.  H.  Campbell.  Mr.  R.  D.  Kramer, 
Marshall  Space  Flight  Center  and  Mr.  R.  R.;  Carley,  NASA  Headquarters 
were  the  NASA  Study  Directors  for  this  study.  Their  efforts  in  providing 
technical  direction  throughout  the  duration  o£  the  study  are  greatly  appre- 
ciated. 

This  volume  is  one  of  three  volumes  o£  the  final  report  for 
Study  2,  3.  The  three  volumes  are: 


Volume  I 
Volume  n 
Appendix 
Volume  III 


Executive  Summary  ^ 

Systems  Cost/Performance  Model 
Data  Base 

Programiner ' s Manual  and  User's  Guide 


Volume  I summarizes  the  overall  report.  It  includes  the  relation- 
ship of  this  study  to  other  NASA  efforts,  significant  results,  study  limita- 
tions, and  suggested  additional  effort. 

“ Volume  II  provides  a detailed  description  of  the  Systems  Cost/ 
Performance  Model.  It  also  includes  the  model  checkout  and  the  results 
for  three  payload  test  cases.  'The  Data  Base  is  provided  in  the  Appendix 
to  Volume  II. 

Volume  III  provides  a detailed  description  of  how  the  Systems 
Cost/PeiYormance  Computer  Program  is  organized  and  operates.  The 
program  listing,  detailed  flow  charts  and  user  restrictions  are  included. 
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1.  • INTRODUCTION 


The  objective  of  the  programming  task  within  Study  2. '3  was 
to- implement  the  entire  Systems  Cost/Performance  Model  as  a digital  ' 
computer  program.  This  document  contains  a discussion  of  the  operating 
environment  in  vhich  the  program  was  written  and  checked;  the  program 
specifications  such  as  discussions'  of  logic  and  computational  flow;  the 
different  subsystem  models  involved  in  -the  design  of  the  spacecraft;  and 
routines  involved  in  the  nohdesign  area  such  as  costing  and  scheduling-  of 
the  design.  Preliminary  results  for  the  DSCS-II  design  are  also  included. 

Section -2  of'this  volume  covers  the  Operating  Environment. 
This  includes  both  hardware  and  software  considerations  for  the  UNIVAC 
1108  and  the  CDC  7600, 

Section  3 contains  the  Program  Specifications,  These  in- 
clude the  computational  flow,  a discussion  of  the  MACRO -MICRO  concept, 
a detailed  discussion  of  the  COMMON  structures  used  for  communication  in 
the  model,  and  the  Hardware  Selection  procedure. 

Section  4 covers  the  subroutines  that  select  hardware  from 
the  data  base.  These  include  Stabilization  and  Control  (Subroutine  SANDC), 
Auxiliary  Propulsion  (Subroutine  AP),  Data  Processing  and  Instrumentation 
(Subroutine  DPI),  Communications  (Subroutine  COMM);  and  Electrical 
Power  (Subroutine  EP),  A discussion  of  the  communication  with:  the  main 
program  is  included  along  with  the  default  parameters  set  in  the  DATA 
statements. 

Section  5 covers  the  subroutines  that  do  not  select  equipment, 
but  do  size  or  calculate  information  that  is  pertinent  to  the  design.  Sub- 
routines included  are:  FILTER,  which  filters  out  incompatible  designs; 
PRESET,  which  computes  constants  as  a function  of  the  inputs;  INITIL, 
which  initializes  certain  default  numbers  that  are  needed  early  in  the 
model,  but  are  not  computed  until  later  in  the  model;  READDB,  vhich 
reads  the  data  base  for  any  one  subsystem  at  a time;  SAVE,  which  saves 
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certain  matrices  to  be  used  by  later  subroutines;  VESIZE,  the  vehicle 

sizing  routine  that  computes  weights,  lengths,,  and  inertias  for  the  design;, 
STRUCT,  that  computes  other  mechanical  design  data  needed  to  size  the 
structure;  RELY,  which  computes  the  reliability  for  the  spacecraft; 

THRME,  which -computes  the  thermal  requirements  for  the  spacecraft; 
COSTS,  which  calculates  the  various  costs  involved  in  building  and  inte- 
grating the  entire,  spacecraft  system;  SKED,  which  computes  the  schedule 
for  the  spacecraft  from  initial  design  phase  to  the  launch  phase;,  and 
PRNT,  which  outputs  the  final,  design  attributes. 

Section  6 contains  a discussion  of  the  data  base  format  and 
tape  requirements.  Also  discussed  is  the  PRESORT  routine  vhich  allows 
one  to  presort  the  data  base  into  a different  order  based  on  cost,  weight, 
or  reliability. 

Section  7 summarizes  the  restrictions  and  limitations  estab- 
lished within  the  program.  ■ , 

Section  8 contains  a discussion  of  the  actual  sample  case  used 
to  check  the  program  including  all  input  default  values  and  changes  pertain- 
ing to  the  sample  case.  The  results  of  the  test  case  are  discussed  here  also. 

Sections  9 and  10  contain  the  source  code  listing  and  the  de- 
tailed flow  charts,  respectively. 
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2.  OPERATING  ENVIRONMENT 


Section  2 contains  a description  of  the  -operating  environment 
within  which  the  program  was  coded  and  checked.  Paragraph  2.  1 sum- 
marizes the  hardware  involved  and  Paragraph  2.2  siimmarizes  the  software 
involved. 


2.  1 HARDWARE 

2.  1,  1 Computer 

-UNIVAC  1108  and  GDC  .7600 

2.1.2  Main  Memory  Utilization 

a.  UNIVAC  1108  (Octal  Words! 

135K  (to  compile) 

135K  (to  link  edit) 

135K  (to  execute!) 

b.  CPC  7600  (Octal  Words) 

I20K  (to  compile) 

20K  (to  link  edit) 

74K  (to  execute) 

2.1.3  Magnetic  Tapes 

Optional-for  input  or  presort  (see  Paragraph  6.2). 

2.1.4  Card  Punch 
Not  required' 

2.1.5  Plotter 


Not  required 

2.1.6  Disk 

Optional  for  input  or  presort  (see  Paragraph  6.  2). 
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SOFTWARE 


2.2.  1 


Operating  System 


a;  UNIVAC  1108 
EXEC  8 ■ 

b.  CPC  7600 

SCOPE  3.4. 1 Vers.  373 


2.2.2 


Programming  Language 


FORTRAN 


2.2.3  Type  of  Run 
BATCH 

2.2.4  Library  Subroutines 

SORT 

SIN 

COS 

TAN 

ATAN 

ARSIN  (ASIN  on  the  CPC  7600) 

EXP 

FLOAT 

INT 

ALOG 
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3.  PROGRAM  SPECIFICATIONS 


Paragraph  3.  1 contains  a description  of  the  overall  program 
flow  and  a discussion  of  the  MACRO-MICRO  concept.  Paragraph  3.  2 con- 
tains a discussion  of  the  common  structures.  Paragraph  3.  3 contains  a 
discussion  of  the  hardware  selection  procedure.  Detailed  discussions  of  all 
subroutines  can  be  found  in  Sections  4 and  5. 

3.  1 COMPUTATIONAL, FLOW  CHART 

In  general,  it  can  be- said  that  the  program  has  an  outer  loop 
on  configurations  and  an  inner  loop  on  iterations.  The  inner  loop  on  inter- 
ations  includes  the  calling  of  all  subsystem-subroutines  and  for  ITER  = 0 the 
calling  of  the  reliability  subroutine.  For  ITER  = 1 (second  pass)  reliability 
is  bypassed.  The  structures,  thermal,  cost,  and  print  subroutines  are  called 
once  per  outer  loop  on  configurations.  A general  flow  chart  is  shown  in 
Figure  3-1. 

3.1.1  MACRO-  MICRO 

A prerequisite  to  the  understanding  of  the  MACRO-MICRO 
concept  is  an  understanding  of  *' configuration,  " A set  of  rules  for  selecting 
equipments  is  associated  with  each  subsystem.  Which  set  of  rules  is  to  be 
used  at  any  moment  in  time  is  determined  by  NCONF  (configuration  number) 
for  that  subsystem.  For  example,  if  NCONF  (1)  = 5,  a star  sensor  will  be 
selected  by  reference  to  the  appropriate  equations.  However,  if  NCONF  (1) 

= 1,  a star  sensor  will  never  be  selected.  Thus,  the  configuration  numbers 
determine  a subset  of  the  sets  of  equipments,  and  only  this  subset  is  con- 
sidered for  the  configuration  design, 

A MACRO  search  is  a method  for  testing  all  possible  com- 
binations of  configuration  numbers  (one  per  subsystem)  and  determining 
within  this  subset  of  equipments  and -within  the  subset  of  selection  procedures 
the  first  acceptable  equipments  for  each.  Some  combinations  of  config- 
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Figure  3-1.  Main  Program  Logic  (Continued) 
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Figure  3-1.  Main  Program  Logic  (Continued) 
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Figure  3-1.  Main  Program  Logic  (Continued) 
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Figure  3-1.  Main  Program  Logic  (Continued) 
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STOP 


Figure  3-1.  Main  Program  Logic  (Continued) 
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urations  are  never  acceptable,  and  some  are  ruled  out  by  mission  require- 
ments; but  a MACRO  search  will,  in  general,  produce  many  acceptable  . 
designs. 

In  a MICRO  mode  all  configuration  numbers  except  the  one 
being  "MICROed”  are  fixed.  Care  must  be  taken  that  these  numbers  are 
compatible.  For  example,  VESIZE  should  not  be  set  to  configuration  2 
when  SANDC  is  set  at  2;  that  is,  a box  shaipe  for  the  equipment  bay  is  in- 
compatible with  dual  spin.  Within  the  subsystem  being  "MICROed”,  all 
configurations  are  checked  and  all  possible  combinations  of  equipments 
within  the  subset  determined  by  configuration  are  checked.  Within  a con- 
figuration then,  it  i s essentially  the  stopping  point  which  determines  the 
difference  between  a MACRO  and  a MICRO.  A MACRO  selects  the  first 
acceptable  equipment  in  each  category.  The  MICRO  selects  all  combinations 
of  acceptable  equipments.  The  reader  should  note  that  in  the  current  ver- 
sion of  the  program,  equipments  for  which  selection  criteria  are  not  available 
are  not  included  in  the  MICRO  "search.  " 

3.  2 COMMON  REGIONS 

The  main  COMMON  regions  consist  of  the  USER  series,  DBCOM, 
CHOSE,  PRTCOM  and  BTWN. 

3.  2.  1 USERl,  USER3,  USER4,  USER6,  USERS,  USER9, 

USERR,  USERC,  USERI'.  USERP 

The  various  "user"  COMMONS  are  for  storage  of  user  inputs. 
Variables  included  in  each  of  these  nine  common  areas  are  used  by  only  one 
of  nine  major  subsystems;  Stabilization  and  Control,  Data  Processing  and 
Instrume'ntation,  Communications,  Vehicle  Sizing,  Schedules,  Structures, 
Reliability,  Costs  and  Print.  All  user -specified  values  are  preset  to  either 
default  values  or  flags  by  the  BLOCK  DATA  routine,  but  can  be  overwritten 
by  values  specified  in  the  NAMELIST  input  from  the  user.  The  default  flags 
inform  subroutine  PRESET  to  calculate  (from  other  inputs)  those  variables 
•which  are  not  overwritten  by  user-supplied  inputs.  A pomplete  list  of  all 
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variables  in  each  of  the  user  common  areas  as  well  as 
subsystem  and  namelist  block  names  are  given  below. 
8.  I for  a definition  of  each  of  these  variables, 

COMMON 
Block  Name 


USERl 

AY 

AZ 

DPHI 

EA 

EANT 

EPl 

K 

MANY 

OMEGR 

PDOTAV 

PDOTRX 

PDOTRY 

PDOTRZ 

PDOTST 

PDOTX 

PDOTY 

PDOTZ 

PDOTO 

PHIFOV 

PHIRX 

PHIRY 

PHIRZ 

TAG  CEE 

THETMX 

THOLD 

Th 

TPMDSr 

TSMALL 

XN 

XNN 

XNNN 

XNU 

YN 

ZN 


Subsystem  Variable 

Stabilization  and  • ALPHA 
Control  AX 


the  applicable 
Refer  to  Paragraph 


NAMELIST 
Block  Name 

OPTION 


DESIRE 

I 

OPTION 
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COMMON 

Block  Name  ■ Subsystem 


Variable 


NAMELIST 
Block  Name 


USERS 

Data  Processing 

ARRAYN  (11,  3) 

DESIRE 

' 

and  Instrumen- 

BTRMX 

OPTION 

tation 

NMSEQ 

DESIRE 

OPSMS 

SCSFL 

TPRFL 

1 

OP1 

1 

r 

USER4 

Communications 

BWIDTH  (2) 

OPTION 

FREQ  (2) 

FREQR 

lOPTCM  (3) 

LINK 

NADIR 

NET 

USER6 

Vehicle  Sizing 

CGEEX  (9) 

DESIRE 

EELOC  (9) 

EEQVL  (9) 

EMIYCG 

EMIZCG 

EM2YCG 

EM2ZCG 

EQPF 

OPTION 

ISBOFG 

f 

NUMEEQ 

DESIRE 

XCGSA3 

OPTION 

USERS 

Sched\iles 

SKDME  (7,  3) 

DESIRE 

USER9 

Structure  s 

CA 

OPTION 

CE 

OPTION 

USERR 

Reliability 

ISPT 

OPTION 

ISUB 

KEOPT 

RFIXED 

SLBMX 

1 

r 

USERC 

Costs 

FEE PC T 

OPTION 

IMETYP 

DESIRE 

NFV 

REQUIR 

NQV 

♦ 

PI 

DESIRE 
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COMMON 
Block  Name 


Subsystem 


V ariable 


NAMEBIST 
Block  Name 


USERP  Print  IPRINT  ■ REQUIR  • ■ 

ITITLE  * 

in  the  above-mentioned  COMMON  regions  the  variables  are 
either  input  from  the  user,  defaulted  by  the  BLOCK  DATA  routine  or  calcu- 
lated by  subroutine  PRESET  and  used  only  by  the  subsystem  mentioned,  in 
the  following  COMMON  region  the  variables  are  again  either  input  from  the 
user,  defaulted  by  the  BLOCK  DATA  routine  or  calculated  by  subroutine 


PRESET, 

COMMON 

but  are  used  by  more 

than  one  subsystem. 

. NAMELIST 

Block  Name  Subsystem 

Variable 

Block  Name 

USERI 

PRESET,  COMM, 
SANDC 

APOGEE 

REQUIR 

COMM,  DPI 

COMRAT 

OPTION 

PRESET,  INITIL, 
VESIZE 

DIAMAX 

OPTION 

PRESET,  INITIL, 
VESIZE 

EEQWT  (9) 

DESIRE 

INITIL,  EP 

EPME 

REQUIR 

PRESET,  INITIL, 
VESIZE 

EQM IWT 

REQUIR 

PRESET,  SANDC, 
VESIZE  ■ 

EQM IXL 

DESIRE 

PRESET,  SANDC, 
VESIZE 

EQMIYL 

DESIRE 

PRESET,  SANDC, 
VESIZE 

EQM  rZL 

DESIRE 

PRESET,  INITIL, 
VESIZE 

EQM2WT 

REQUIR 

PRESET,  SANDC, 

EQM2XL 

DESIRE 

VESIZE 


"*  ITITLE  is  a special  card  input.  It  is  the  first  card  of  any  run  prior 
to  the  NAMELISTs  and  describes  the  run  (all  80  .columns). 
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COMMON 

NAMELIST - 

Block  Name  Subsystem 

Variable 

Block  Name 

USERI 

PRESET,  SANDC, 
VESIZE 

EQM2YL 

DESIRE 

PRESET,  .SANDC, 

EQM2ZL 

. DESIRE 

VESIZE 

SANDC,  AUXPRO 

FE  (TTHST  in  AP) 

OPH  ONi 

PRESET,  THERMAL, 

lAGNCY 

DESIRE 

COMM 
REL,  COST 

IDEBUG  • 

OPTION  : 

THRML,  COMM, 
SANDC 

IS  AT  OR  (ISEQ,  ISAT)- 

DESIRE 

PRESET,  VESIZE 

MB12SH 

DESIRE 

ALL 

MICRO 

REQUIR 

' EP,  REL 

OPTEMP 

OPTION 

SANDC,  PRESET 

ORBINC 

OPTION 

THRML 

PRESET,  SANDC,  EP 

PERIGE 

REQUIR 

PRESET,  REL 

RELME 

DESIRE  . 

PRESET,  REL 

SPEC  (6) 

REQUIR 

PRESET,  REL 

SPECl 

REQUIR 

PRESET,  INITIL, 

T, 

REQUIR 

SANDC,  REL 

■* 

SANDC,  VESIZE 

XCGSAl 

OPTION 

COST,  PRNT 

XMER  — - 

DESIRE 

COST,  PRNT 

XMEU 

DESIRE 

3.E.  2 DBCOM 


DBCOM  acts  as  storage  for  blocks  of  the  data  base.  Ail  data 
base  values  for  one  of  the  hardware  selection  subroutines  (i.  e. , all. 55  . 
attributes  associated  with  all  equipments  relevant  to  that  subsystem)  are 
read  at  one  time.  These  values  are,  stored  in  matrix  DA  TAB  (55,  100). 
in  addition,  the  COMMON  contains  IDB(30),  (see  Paragraph'3l  3)  which  is 
filled  by  the  read  routine.  IDB(I)  contains  the  last  column  number  for  the 
Ith  equipment  of  the  active  subsystem. 
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3.  2.  3 


CHOSE. 


The  named  COlilMON  block  CHOSE  contains  values  pertaining  to 
equipment  already  chosen.  ICHOSE(60)  and  NCHOSE(60)  are ‘concatenations 
of  the  separate  ICHOSE(I)  and  NCHOSE(I)  of  each  subsystem  which  selects 


hardware  as  discussed  in 

Paragraph  3.  3. 

COST (5,  60)  is  a matrix  formed 

by  selecting  the  following 

rows  from  the  data  base  for  each  equipment 

selected; 

Row  of 

Matrix 

. DATAB 

De  s cription 

COST  (1,1) 

46 

Design  engineering  cost 

COST  (2,1) 

' 47 

Test  and  evaluation  cost 

COST  (3,1) 

48 

Unit  production  cost 

COST  (4, 1)  . 

49 

Reference  quantity 

COST  (5,1) 

50  . 

Factor 

SKD.(7,  60)  is  a matrix  formed  by  selecting  the  following  rows  from  the 

data  base  for  each  equipment  selected. 

Row  of 

Matrix 

DATE 

Description 

SKD  (1,1) 

40 

Design  engineering  cost 

SKT>  (2, 1) 

47 

Test  and  evaluation  cost 

SKD  (3,1) 

51  ’ 

Development  constant 

SKD  (4, 1) 

52 

Development  variable 

SKD  (5,1) 

53 

Qualification  constant 

SKD  (6,1) 

54 

Qualification  variable 

SKD  (7, 1) 

55 

State-of-the-art  factor 

REL(6,  60)  is  a matrix  formed  by  selecting  the  following  rows  from  the 
data  base  for  each  equipment  selected. 
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Matrix 

Row  of 
DATAB 

Description 

REL  (1,1) 

23 

Weight 

REL  (2, 1) 

41 

Failure  model 

REL  (3,1) 

• 42 

A or// 

REL  (4,1) 

43 

a 

REL  (5,1) 

44 

T 

REL  (6, 1) 

' 45  ■■ 

Maximum  red\mdancy 

THM(4,  60)  is  a matrix  formed,  by 

selecting 

the  folio-wing  rows  from  the 

data  base  for  each  equipment  selected; 

Matrix 

Row  of 
DATAB 

Description 

THM  (1,1) 

17 

Maximum  power 

THM  (2,1) 

18 

Minimum  power 

THM  (3,1) 

27 

Maximum  temperature 

THM  (4,1) 

28 

Minimum  temperature 

DPIA.(11,  60)  is  a matrix  formed  by  selecting  the  following  rows  from  the 

data  base  for  each  equipment  selected: 

Matrix 

Row  of 
DATAB 

Description 

DPIA-  (1,1) 

30 

Number  power  commands 

DPIA  (2,1) 

31 

Number  other  commands 

DP3A  (3,1) 

32 

Number  time  tags 

DPIA  (4, 1) 

33 

Number  high  rate  analog 
points 

DPIA  (5,1) 

34 

Number  -high  rate  digital 
points 

DPIA  (6,1) 

35 

High  sample  rate 

DPIA  (7,1) 

36 

Word  length 

DPIA  (8,1) 

37 

Number  low  rate  analog 
points 
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Row  of 

Matrix 

DATAB 

Description 

DPIA  (9, 1) 

38 

Number  low  rate  digital  points 

DPIA  (10, 1} 

39 

Low  sample  rate  ■ 

DPIA  (11,1) 

40 

Word  length 

These  matrices  are  needed  by  the  subroutines  that  have  similar  names. 

For  example,  COST  is  used  by  COSTS,  REL  is  used  by  RELY,  SKD  is  used 
by  SBCED,  THM  is  used  by  THRML,  and  DPIA  is  used  by  DPI. 

3.2.4  PRTCOM 

PRTCOM  is  used  to  pass  values  to  the  print  subroutine  which 
are  not  needed  (except  for  output)  outside  of  a given  routine.  A description 
of  the  variables  in  this  COMMON  block  is  given  below: 


Name 

From 

Units 

Description 

ACCRCY 

SANDC 

deg 

S&C  accuracy 

AM 

STRUCT 

— 

Number  of  frames 

AN 

STRUCT 

— 

Number  of  stringers 

BF 

STRUCT 

in. 

Frame  height 

BS 

STRUCT 

in. 

Stringer  height 

CDPI  (7,  2) 

DPI,  MIS 

— 

Engineering  & mission  equip- 
ment data  for  CDPI 

CISTAR 

EP 

amp  -hr 

Battery  capacity 

CTOT 

COST 

$ 

Flight  operations  cost 

DDTE 

COST 

$ 

DDT&E  program  total 

DE 

COST 

$ 

Design  engineering  cost 

DRIWT 

AUXPRO 

lb 

Weight  of  AP  less  ex- 
pendables 

EQBSTR 

VESIZE 

lb 

Equipment  bay  structure 
weight 

FEEINV 

COST 

$ 

Investment  contractor  fee 

FEEOPS 

COST 

$ 

Operaii  ons  contractor  fee 
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Name 

From 

Units 

Description 

FEER 

COST 

$ 

DDT&E  contractor  fee 

GSE 

COST 

$ 

DDTStE-GSE 

IREL 

RELY 

— 

0 means  single  system 

1 means  dual  system 

ITRUNC 

RELY 

— 

Index  for  reliability 

MMDOLD 

RELY 

mo 

Mean  mission  duration 

NAME  (3,  60) 

SAVE 

— 

Name  of  equipment  type 

OPS 

COST 

$ 

Operations  pro  gram  total 

PAYJNV 

COST  ' 

. $ 

Total  payload  investment 
cost 

PAYQUL 

COST 

$■  ’ 

DDT&E  qual.  units  cost 

PAYR 

COST 

$ 

DDT&E  total  payload  cost 

PE 

COST 

$ 

Unit  engineering  cost 

PMP 

COST 

$ 

Investment  program  manage- 
ment cost 

PMR 

COST 

$ 

DDT&E  program  manage- 
ment cost 

POWER  (6) 

MAIN 

watts 

Power  requirement  of  each 
subsystem 

PU 

COST 

$ 

Unit  production  cost 

PWR  (60) 

SAVE 

watts 

Power  requirement  of  each 
component 

QCP 

COST 

$ 

Investment  quality  control 
cost 

OCR 

COST 

$ 

DDT&E  quality  control  cost 

ROED(60) 

RELY 

— 

Reliatdlity  of  each  module 

SABMWT 

VESIZE 

lb 

Solar  array  boom  weight 

SATADP 

VESIZE 

lb. 

Adapter  weight 

SATINY 

COST 

$ 

Spacecraft  investment  cost 

SATR 

COST 

$ 

DDT&E  spacecraft  cost 

SEIP 

COST 

$ 

Investment  systems  engineer 
ing  & integration  cost 
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Name 

From 

Units 

Description 

SEIR 

COST 

$■ 

DDT&E  systems  engineering 
and  integration  cost 

SKTAU(l) 

SKED 

mo 

Design  and  component  de- 
velopment time  (critical 
subsystem) 

^SKTAU(Z) 

SKED 

mo 

Component  qu^ification  time 
(critical  subsystem) 

SKTAU(3) 

SKED 

mo 

Subsystem  development  time 
(critical  subsystem) 

SKTAU(4) 

t 

SKED 

mo 

Subsystem  qualification  time 
(critical  subsystem) 

SKTAU{5) 

S^D 

mo 

Subsystem  development  and 
flight  readiness  time  (criti- 
cal subsystem) 

SKTAU(6) 

SKED 

mo 

Total  subsystem  critical  time 

SSREL{6) 

RELY 

— 

Subsystem  reliabilities 

SUBE(7) 

COST 

$ 

Subsystem  design  eng.  cost 

SUBT(7) 

COST 

$ . 

Subsystem  test  & eyal.  cost 

SUBUE(7) 

COST 

$ 

Subsystem  vinit  eng.  cost 

SUBUP(7) 

COST 

$ 

Subsystem  unit  prod,  cost 

TA 

STRUCT 

in. 

End  cover  thickness  center 

TAU(6,6) 

SKED 

mo 

Critical  path  for  each  subsys 

TB 

STRUCT 

in. 

End  cover' thickness  aft 

TC 

STRUCT  . 

' in. 

End  cover  thickness  forward 

TE 

COST 

■ • $ 

Test  and  evaluation  cost 

TF 

STRUCT 

in. 

Frame  thickness 

TOOLR 

COST 

$ 

DDT&E  tooling  and  test 
equipment  cost 

TOOLU 

/ 

COST 

t 

$ 

Investment  tooling  and 
test  equipment  cost 

TOTOPS 

DPI 

ips 

Computer  operations  rate 

TRUNC 

RELY 

mo 

Reliability  truncation  time 

TS 

STRUCT 

in. 

Stringer  thickness 

TTT 

STRUCT 

in. 

Skin  'thickness 
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Name 

From 

Units 

Description 

VOLUME  (6) 

MAIN 

ft^ 

Subsystem  volumes  . 

VQL  (60) 

SAVE 

ft^ 

Component  volumes 

WEIGHT  (6) 

MAIN 

lb 

Subsystem  weights 

XLTOT 

COST 

$ 

, Launch  support  opr.  cost 

XMEH 

VESIZE 

in. 

Mission  equipment  height 

XMEINV 

COST 

$ 

Mission  equipment  invest- 
ment cost  . - ■' 

XMEL 

VESIZE 

in. 

Mission  equipment  length 

XMEVL 

VESIZE 

ft^ 

Mission  eqtiipment  volume 

XMEW 

VESIZE 

in. 

Mission  equipment  width 

XMEWT 

VESIZE 

■lb 

Mission  equipment  weight 

XVEST 

COST 

$ 

Investment  program  total 

3.2.5 

BTWN 

Communication  of  all  design  variables  between  subsystems  is 

accomplished  via  COMMON  block  BTWN, 

A description  of  all  variables 

contained  in  BTWN  is  given  below: 

Name 

From 

To 

Units  Description 

ACSSN 

SANDC 

REL 

— 

Number  of  sensors 

ACSWP 

AUXPRO 

VS 

lb 

Propellant  weight 

ALT 

PRESET 

ALL 

nmi 

Average  altitude 

AREA 

EP 

VS 

ft^' 

Solar  array  area 

BAT CAP 

EP 

REL, 

PRNT 

• amp 

-hr  Battery  capacity 

BITRAT(2) 

DPI 

COMM 

bps 

Bit  rate  (mission  equipment 

and  housekeeping) 

CLIFE 

SANDC 

AUXPRO  --- 

Cycle  life  of  thrusters 

CONVWT 

SANDC  & 
COMM 

COSTS 

lb 

Converters  weight 

D 

INITIL,  VS 

SANDC 

ft 

Vehicle  diameter 

DT 

miTIL,  VS 

SANDC 

■ ft 

Dist.  from  c.  g.  to  engine 
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Name 

From 

To 

Units 

Description 

DX 

INITIL,  VS 

SANDC 

ft 

1 

DY' 

INITIL,  VS 

SANDC 

ft 

' Gas  jet  lever  arm 
1 (roll,  pitch,  and  yaw) 

DZ 

INITIL,  VS 

SANDC 

ft 

EQB  LG 

PRESET,  VS 

SANDC 

in. 

Equipment  bay  length 

EQBSID 

PRESET,  VS 

SANDC 

in. 

Equipment  bay  side 

FC 

SANDC 

REL  , 

hr"^ 

APS  thruster  cycle  rate 

FF 

SANDC 

AUXPRO 

lb 

Attitude  & control  thrust 

HARNWT 

VS 

COSTS 

lb 

Harness  weight  (wiring) 

HPT 

THERMAL 

PRNT 

Btu/hr 

Total  heater  power 

HTPIPE 

THERMAL 

PRNT 

Btu/hr 

Heat  pipe 

HTPT 

THERMAL  • 

PRNT 

Btu/hr 

Total  heat  pipe 

HTRPRB 

THERMAL 

PRNT 

Btu/hr 

Battery  heater  power 

HTRPWR 

. THERMAL 

PRNT 

Btu/hr 

Heater  power 

IBTLOC 

EP 

THERMAL  --- 

Battery  location  (column  no.  ) 

LMBDD 

EP 

RELY 

— 

Depth  of  discharge  of  battery 
capacity 

NC 

EP 

RELY 

Number  of  cells 

OMEGS 

PRESET 

SANDC 

rad/ sec 

Spin  rate  about  yaw  axi  s 

PASSTR 

VS 

COSTS 

lb 

Equivalent  structures  weight 

PJ 

INITIL,  VS 

SANDC 

slug-ft^ 

Platform  spin  axis  inertia 

PL 

ALL 

EP 

watts 

Average  power 

PLMIN 

ALL 

EP 

watts 

Minimum  power 

POCNWT 

SANDC  & EP 

PRNT, 

COST 

lb 

Power  control  weight 

RADA 

THERMAL 

PRNT 

ft^ 

Radiator  area 

RADAB 

THERMAL 

PRNT 

ft^ 

Battery  radiator  area 

RAT 

THERMAL 

PRNT 

ft^ 

Total  radiator  area 

RJ 

INITIL,  VS 

SANDC 

slug-ft^ 

Rotor  spin  axis  inertia 

SABOLG 

VS 

STRUCT 

in. 

Solar  array  boom  length 

SATLG 

VS 

THERMAL  ft 

Vehicle  length 
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Name 

From 

To 

Units 

Description 

SATTWT 

VS 

PRNT 

lb 

Launch  weight 

SATWT 

VS 

PRNT 

lb 

Vehicle  weight 

SATXCG 

INITIL,  VS 

SANDC 

in. 

XAxis  center  of  gravity 

SATYCG 

INITIL,  VS 

SANDC 

in. 

Y Axis  center  of  gravity 

SATZCG 

INITIL,  VS 

SANDC 

in. 

Z Axis  center  of  gravity 

SAIXL 

INITIL,  VS 

SANDC 

in. 

X location  of  solar  array 

SAIYL 

INITIL,  VS 

SANDC 

in. 

Y location  of  solar  array 

SAIZL 

INITIL,  VS 

SANDC 

in. 

Z location  of  solar  array 

SIDE 

INITIL,  VS 

SANDC 

in. 

Side  of  box  shape  vehicle 

SYSLB 

VS 

REL 

lb 

System  weight 

THCMWT 

VS 

COSTS 

lb 

Thermal  control  weight 

THRUST  (2) 

SANDC 

AUXPRO 

lb 

Attitude  and  translational 
thrusts 

TI 

SANDC 

AUXPRO 

lb-sec 

Total  impulse 

TNKWT 

AUXPRO 

COSTS 

lb 

Propellant  feed  systems 
weight' 

TPRIM 

REL 

SANDC 

ino 

Mission  length 

VB 

EP 

VESIZE, 

PRNT 

ft^ 

Volume  of  battery 

VCHP 

THERMAL 

PRNT 

Btu/hr 

Variable  conductance  heat 
pipe 

VOL 

ALL 

VS  . 

ft^ 

Accumulated  volume 

WATE 

EP 

VS,  RELYlb 

Solar  array  weight 

WB 

EP 

VESIZE, 

PRNT 

lb' 

Volume  of  battery 

WBT 

EP 

VESIZE 

lb 

Weight  of  batteries 

WT 

ALL 

VS 

lb 

Accumulated  equipment  wt 

XNZERO 

EP 

RELY 

rad/sec 

Orbital  mean  motion 

XJ 

INITIL,  VS 

SANDC 

slug-ft^ 

1 Vehicle  inertia 

YJ 

INITIL,  VS 

SANDC 

slug-ft 

2 

(roll,  pitch,  yaw) 

ZJ 

INITIL,  VS 

SANDC 

slug-ft  . 
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3.  3 HARDWARE  SELECTION  PROCEDURE 

This  section  describes  the  hardware  selection  procedure,  the 
method  of  communication  between  the  MAIN  program  and  the  hardware 
selection  subroutines,  and  the  general  procedure  used  in  systematically 
checking  all  hardware  parameters  iintil  a component  is  found  that  meets 
the  specifications.  Discussions  as  to  -which  hardware  is  selected  can  be 
found  in  the  appropriate  subsystem  subroutine  sections  (see  Section  4). 

There  are  five  subroutines  in  which  hardware  is  selected:  SANDC  (Stabiliza- 
tion and  Control),  AUXPRO  (Auxiliary  Propulsion),  DPI  (Data  Processing 
and  Instrumentation),  COMM  (Communications),  and  EP  (Electrical  Power). 
The  procedures  described  in  Table  3-1,  Figures  3-2  and  3-3  are  applicable 
to  all  of  these  subrou-tines. 
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Table  3-1.  Hardware  Selection  Procedure  in  Kth  Subsystem 


Calling  Sequence 

SUBROUTINE  SSK  (IPIC,  lERR, 

♦ 

Definition  of  Variable  Names 

1.  IPIC(NSIZE) 

2.  'lERR 


3.  ITER 

4.  NCONF{6) 

5.  ICHOSE(NEQUIpf 

6.  NCHOSE(NEQUIP) 

Additional  Variables  Used  in  Selection 

7.  DATAB(NR,  NC) 

8.  IDB(NTOTli)* 


ITER,  NCONF,  ICHOSE,  NCHOSE) 


hardware  index  indicating  data 
base  column 

NSIZE  = maximum  number  of 
equipments  sized  for  any  configu- 
ration 

message  flag 

0 means  no  message 

1 means  first  message  only 
10  means  second  message  only 


111  means  first,  second  and  third 
m'es sages  are  applicable 

iteration  flag  (0  means  first  time 
through) 

system  configuration  indices 

I.D,  of  hardware  chosen 

NEQUIP  = maximum  equipments  (in 
general,  more  than  one  manufacturer 
per  equipment)  in  any  configuration 

number  of  identical  pieces  of 
hardware  required 

Procedure 

data  base  for  subsystem 

NR  = total  equipment  attributes 
NC  = total  number  of  individual 
pieces  of  hardware 

last  hardware  column  index  for  all 
equipment 

NTOTLi  = total  number  of  equipments 
in  data  base  for  this  subsystem  (all 
.'confi  gurations) 


See  Figure  3-2  for  further  explanation 
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LO 


FIRST  ROW  CONTAINS 
HARDWARE  I.  D. 

CONFIGURATION  1 CONFIGURATION  2 ► 

EQ1  EQ2  EQ3  EQ4  EOS  EQ6 


Figure  3-2,  Explanation  of  Arrays;  IDB  and  ICHOSE 


SECOND 

CONFIGURATION 


(Iterating) 


=0 


INITIALIZE  VARIABLES 

ICH0SE(l)  = 0 
NCH0SE(l)  = 0 
I = 1,  NEQUIP 
lERR  = 0 

SELECT  HARDWARE  NOT  SIZED 


i.e.,  ICHOSE(NI)  = DATAB(1,N2) 
FOR  APPROPRIATE  N1  AND  N2 
SET  NONZERO  VALUES  OF  NCH0SE 


Figure  3-3.  Hardware  Selection  Flow  Chart 
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? 

J1E  = IDB[M) 


J2E  ~ tDB(MM) 


ICHOSEIL)  . 
ICHOSE(LL) 
RETURN 


SELPR1 

SELPR2 

4 

SEE  IF  HARDWARE  J1  AND  J2  ARE 
ACCEPTABLE 


HARPR2  = DATABU.J2) 


RETURN 


IPIC(I)  = J1 
IPICI2)  = J2 
ICHOSE(L)  = 
DATAB(I.Jl) 
ICHOSE(LL)  = 
DATAB(1,J2) 
NCHPSEIL)  =_ 
NCH0SE(LL)  =_ 
RETURN 


acceptable  ■ 


Figure  3-3.  Hardware  Selection  Flow  Chart  (Continued) 
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4.  SUBROUTINES  WHICH  SELECT  HARDWARE 


4. 1 SUBROUTINE  SANDC  (IHC,  lERR,  ITER,  NCONF,  ICHOSE. 

NCHOSE) 

4.  1.  1 Purpose  of  Subroutine 

The  Stabilization  and  Control  Subsystem  stabilizes  a spacecraft 
to  a desired  accuracy  about  a tracking  line  from  a reference,  on  the  vehicle 
to  an  external  reference.  The  external  reference  may  be  the  local  verticd. 
of  a planet,  the  sun,  or  a more  distant  star;  an  inertial  reference;  or  the 
line  of  sight  to  a natural  phenomenon  like  a gravity  gradient  or  the  lines  of 
the  earth’s  magnetic  field.  In  many  cases,  a platform  free  to  rotate  with 
respect  to  the  main  structure  of  the  vehicle  must  also  be  aligned  with  an 
external  reference.  The  necessary  accuracy  of  attitude  stabilization  depends, 
of  course,  on  the  mission  of  the  vehicle. 

In  the  beginning  of  SANDC,  the  subroutine  computes  the  disturbance 
torques  {XMD,  YMD,  and  ZMD).  These  disturbance  torques  are  the  combina- 
tion of  gravity  gradient  torques,  aerodynamic  torques  and  solar  torques.  The 
solar  or  aerodynamic  torques  are  a function  of  the  altitude.  The  disturbance 
torques  are  then  used  in  the  selection  criteria  equations  for  all  configurations. 

The  principal  calc\ilations,  other  than  those  necessary  to  select 
stabilization  and  control  equipment,  are  contained  in  equations  for  thrust,  cycle 
life,  and  total  impulse.  (These  are  necessary  for  the  correct  selection  or  siz- 
ing of  equipment  in  auxiliary  propulsion).  Sensor  selection  is  based  on  factors 
such  as  deadband  and  pointing  errors  (with  respect  to  various  axes).  The 
equations  for  sensor  selection  tend  to  be  quite  complicated  and  involve  user 
input,  numbers  from  other  subsystems,  and  values  from  the  data  base  for 
many  of  the  selected  equipments.  As  an  example,  star  sensors  are  selected 
on  the  basis  of  type  (mappers  or  trackers),  rate  error,  pointing  error, 
sensitivity,  and  compatibility  with  the  selected  gyro  and  control  moment 
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gyros  (CMGs).  CMGs  are  selected  on  the  basis  of  momentum,  gimbal  fate, 
and  torque.  Reaction  (or  momentum)  wheels  are  selected  on  the  basis  of 
the  angular  momentum  required.  • 

Those  equipments  vdiich  are  not  chosen  on  the  basis  of  selection 
criteria  in  the  model  are  simply  "called  up"  from  the  data  base. 


The  five  configurations  and  their  equipments  are  as  follows: 


Dual  Spin  rNCONFd')  = 1] 

1. 

Despin  mechanical  and  electrical  assembly  i 

2. 

Valve  driver  assembly 

3. 

Sun  sensor 

4. 

Nutation  damper 

. (called  up) 

5. 

Gimbal  electronics 

6. 

Control  timing  assembly 

7. 

Gimbal  drive  assembly 

8. 

Nonscanning  earth  sensor 

(selected) 

9. 

Power  converter 

(called  up) 

Yaw  Spin [NCONFd)  = 2] 

1. 

Sun  sensor  ^ 

1 

2. 

ACS  electronics  y 

> (called  up) 

3. 

Rate  gyro  ' 

1 

4. 

5. 

Horizon  sensor  1 

Reaction  wheel  f 

. (selected) 

6. 

Power  converter  \ 

. (called  up) 

7. 

Valve  driver  ) 

c.  Three-Axis  Mass  Expulsion  rNCONF(l.)  = 3] 


1. 

Attitude  reference  electronics 

( 

2. 

Valve  driver 

f (called  up) 

3. 

Power  converter 

4. 

5. 

Rate  integrating  gyro 
Scanning  earth  sensor 

1 (selected) 

d.  Momentum  Exchange  [NCONF(I)  = 4] 


1. 

Electronics  processor  ^ 

■ 

2. 

Valve  driver  / 

' (called  up) 

3. 

Horizon  sensor  or  sun  sensor  . ) 

4. 

Control  moment  gyros  ) 

t 

5. 

Rate  integrating  gyros  , 

> (selected) 

6. 

Star  sensor  ] 

1 
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e. 


Pitch  Momentum  Bias 


1. 

Valve  driver 

2. 

Electronic  error  processor 

f (called  up) 

3. 

Horizon  sensor 

/ 

I (selected) 

4. 

Momentum  wheel 

4.1.2  Communication  with  Main  Program 

The  variables  in  the  calling  sequence  are  discussed  in  Paragraph 

3.  3 

User  inputs,  are  communicated  by  the  COMMON  areas  USERl  and 
•USERI.  These  are  discussed  in  Paragraph  8.  1 (see  NAMEUISTs  REQUIR, 
DESIRE  and  OPTION).  Variables  are  passed  to  and  received  from  other  sub- 
routines through  the  COMMON  area  BTWN,  which  is  discussed  in  Paragraph 

3.  2.  The  fourth  COMMON  area  in  this  subroutine  is  DBCOM,  which  contains 
all  necessary  data  base  values  and  an  indexing  scheme  to  reference  the  values. 
DBCOM  is  also  discussed  in  Paragraph- 3.  2. 

4. 1.  3 Variables  Specified  in  .DATA  Statements 

Four  variables  appear  in  DATA  statements.  Three  of  these  (XMD2, 
YMD2,  and  ZMD2)  are  approximations  for  external  torques  (ft-lb).  The  other, 
DI,  is  a minimum  gas  jet  on-time  in  seconds.. 

4.1.4  Other  Subroutines  Called 

None 

4*  2 SUBROUTINE  AUXPRO  (IPIC,  lERR,  ITER.  NCONF.  ICHOSE, 

N CHOSE)  “ ^ 

4.  2.  1 Purpose  of  Subroutine 

The  aiaxiliary  propulsion  subroutine  selects  hardware  which  is 
required  to  provide  attitude  control  forces  and  stationkeeping  or  maneuvering 
forces.  Three  configurations  are  considered  in  the  subroutine.  These 
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configurations  are  characterized  by  the  nature  of  the  propellant  xinder 
investigation:  cold  gas,  monopropellant,  bipropellant. 

All  thrusters,  isolation  valves,  filters,  regulators,  and  tanks  are 
selected  by  comparing  appropriate  attributes  listed  in  the  data  base  with 
satellite  performance  requirements  determined  by  the  model.  Thrusters  are 
selected  on  the  basis  of  thrust  level,,  isolation  valves  on  the  basis  of  effective 
flow  area,  filters  on  the  basis  of  flow  impedance,  regulators  on  the  basis  of 
effective  flow  area  and  pressure  operating  range,  and  tanks  on  the  basis  of 
volume  and  pressure. 

The  model  does  not  include  seUection  criteria  for  the  fill  and  vent 
valves,  fill  and  drain  valves,  or  the  relief  valves.  The  first  valves  in  the 
appropriate  equipment  slots  in  the  data  base  are  simply  called  up. 

The  sequence  in  which  equipments  are  selected  in  each  config- 
uration are  given  below: 


a.  Cold  Gas  rNCONF(2)  = 1[ 

1.  Attitude  and  control  thrusters 

2.  Translational  thrusters  * 

3.  Pneumatic  isolation  valves 

4.  Pneumatic  filters 

5.  Pneumatic  regulator 

6.  ■ Pneumatic  tank 

7.  Fill  and  vent  valve 

8.  Relief  valve 

b.  Monopropellant  [NCONF(2)  = 2] 

1.  Attitude  and  control  thrusters  * 

2.  Translational-thrusters 

3.  Fuel  circuit  isolation  valves 

4.  Fuel  circuit  filters 

5.  Pneumatic  regulator 

6.  Pneumatic  isolation  valve 


I (selected) 


(called  up) 


, (selected) 
' 


Those  thrusters  which  come  closest  to  satisfying  the  thrust  requirements 
are  always  chosen,  whether  the  program  is  in  a MICRO  or  MACRO  mode 
of  calculation. 
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7.  Fuel  tank 

8,  Pneumatic  tank 

-9.  Fill  and  drain  valve 

10.  Fill  and  vent  valve 

11.  Relief  valve 


I (selected) 

I (called  up) 


c.  Bipropellant  rNCONF(Z)  = 3] 

1.  Attitude  and  control  thrusters  * 

2.  Translational  thrusters  * 

3.  Fuel  circuit  isolation  valves 

4.  .Oxidizer  circuit  isolation  valves 

5.  Fuel  circuit  filters 

6.  Oxidizer  circuit  filters 

7 . Pneumatic  regulator 

8.  Pneumatic  isolation  valve 

9.  Fuel  tank 

10,  Oxidizer  tank 

11,  . Pneumatic  tank 

12,  Fill  and  vent  valve 

13,  Fill  and  drain  valves 

14,  Relief  valve 


I (selected) 


I (called  up) 


Those  thrusters  which  come  closest  to  satisfying  the  thrust  requirements’’ 
are  always  chosen,  whether  the  program  is  in  a MICRO  or  MACRO  mode  " 
of  calculation. 

A multiple  fuel  tank  option  is  available;  that  is,  among  all  fuel  tanks  in 
the  data  base  which  satisfy  the  pressure  requirement,  there  may  not  be 
a single  tank  which  satisfies  the  volume  requirement.  In  this  case,  a 
sufficient  number  of  ttie  largest  tank  in  this  subset  is  chosen  to  satisfy 
the  volume  requirement. 
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Plumbing  and  connector  weight  in  each  configuration  is 
estimated  from  the  combined  tanh  weight. 


4.2.  2 


Commiinication  with  Main  Program 


The  variables  listed  in  the  calling  sequence  are  common  to  all 
subroutines  which  select  hardware  and  are  discussed  in  Paragraph  3.  3. 

In  addition  to  the  calling  sequence,  subroutine  AUXPRO  com- 
municates with  the  main  program  via  three  COMMON  blocks:  USERI, 
BTWN,  and  DBCOM.  Variables  coming  through  USERI  are  user  inputs  dis- 
cussed in  Paragraph  8.  1 (see  NAMEUSTs  REQUIR,  DESIRE  and  OPTION). 
The  variables  in  BTWN  and  DBCOM  are  discussed  in  Paragraph  3.  2. 


4.2.3  Variables  Specified  in  DATA  Statements 

DATA  XMR/1.  5/ 

XMR  = mixing  ratio  for  bipropellant  configuration 

4.2.4  Other  Subrountines  Called 
None 

4.  3 SUBROUTINE  DPI  (IPIC,  lERR,  ITER,  NGONF,  ICHOSE, 

NCHOSE,  NOWAT) 

4.3.1  Purpose  of  Subroutine 

The  data  processing  and  instrumentation  subroutine  selects 
hardware  which  is  required  for  mission  equipment  data  processing,  command 
decoding,  and  monitoring  purposes.  Two  configurations  are  considered  in 
the  subroutine:  general  purpose  processing  and  special  purpose  processing. 
In  the  general  purpose  mode,  a computer  on  board  the  satellite  performs 
all  data  processing  tasks  unless  there  is  a requirement  for  separate  proc- 
essing of  telemetry  data.  In  this  case,  a separate  digital  telemetry  unit 
(DTU)  is  used  to  process  the  housekeeping  data.  In  the  special  purpose  mode, 
all  processing  is  performed  by  DTUs.  If  the  communications  configuration 
involves  uplink  plus  downlink,  \mified  link- common  antenna,  or  unified 
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link-separate  antennas,  a single  DTU  performs  all  mission  equipment  and 
housekeeping  data  processing.  If  the  communications  configuration  involves 
unified  link- common  antenna  plus  downlink,  or  unified  link- separate  antennas 
plus  downlink,  one  DTU  is  used  for  mission  equipment  data  processing  and 
one  DTU  is  used  for  housekeeping  data  processing. 

The  general  purpose  computer  is  selected  on  the  basis  of. total 
required  instructions  (dr  operations)  per  second.  The  DTUs  are  not  sized. 
The  first  DTUs  in  the  appropriate  equipment  slot  in  the  data  base  are  simply 
called-up. 

The  following  quantities  are  computed  in  the  sequence  indicated: 

a.  Requirement  for  a digital  multiplexer 

b.  Number  of  mainframe  words 

c.  Word  length 

d.  Bit  rate 

e.  Number  of  words  per  subframe 

f.  Number  of  subframes 

The  above  quantities  are  computed  regardless  of  the  configuration  in  sub- 
routine DPI.  Depending  on  the  configuration,  the  following  operations  are 
performed  in  the  sequence  indicated: 

a.  General  Purpose  Processing  CNC0NF(3)  = 1] 

1.  If  telemetry  data  is  processed  separately,  select  one 
DTU.  Otherwise,  compute  telemetry  operations' per 

- second. 

2.  Compute  attitude  control,  command,  and  total  operations 
per  second. 

3.  Select  general  purpose  computer. 

b.  Special  Purpose  Processing  [NCONFfS)  = 2] 

1.  Depending  on  the  communications  configuration  (as 
discussed  previously),  a DTU  may  or  may  not  be  selected 
for  mission  equipment  data  processing. 

2.  Select  DTU  for  housekeeping  data  processing. 
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4.  3.  2 


Communication  with  Main  Program 


The  variables  listed  in  the  calling  sequence  with  the  exception 
of  NOWAT,  are  common  to  all  subroutines  which  select  hardwa.re  and  are 
discussed  in  Paragraph  3.  3.  NOWAT  is  one  greater  than  the  nurnber  of,  - 
entries  in  the  ARRAY  table  (i.  e.  , DPIA  matrix  in  Paragraph  3.  2). 

In  addition  to  the  calling  sequence,  subroutine  DPI  communicates 
with  the  main  program  via  six  COMMON  blocks;  CHOSE,  BTWN,  DBCOM, 
USERI,  USERS,  and  PRTCOM.  Variables  coming  through  USER3  are  user 
inputs  described  in  Paragraph  8.  1 (see  NAMELIST  REQUIR,  DESIRE  and 
OPTION), 

4.  3.  3 Variables  Specified  in  DATA  Statements 


where: 


DATA  ACSRT,  ACSOP,  COMOP,  OPREQ/lO,,  50,,  6,,  4.  / 


ACSRT 

ACSOP 

COMOP 

OPREQ 


ACS  rate  (sec 
ACS  operations 
Command  operations 
TLM  operations  required 


4.3.4  Other  Subroutines  Called 

4.  3. 4.1  Subroutine  MIS  (IPIC,  lERR,  ITER,  NCONF,  ICHOSE,  NCHOSE) 

The  purpose  of  this  subroutine  is  to  select  a DTU  for  mission 
equipment  data  processing.  It  is  called  from  subroutine  DPI  in  the  special 
purpose  processing  configuration  for  the  specific  commvinications  configura- 
tions discussed  in  Paragraph/4.3.1.  The  same  six  quantities  (i.e., 
•requirement  for  digital  multiplexer,  number  of  mainframe  words,  word 
length,  bit  rate,  number  of  words  per  subframe,  and  number  of  subframes) 
which  are  computed  in  subroutine  DPI  for  all  equipment  on  board  the  satellite 
are  computed  for  the  mission  equipment  in  subroutine  MIS. 

The  variables  listed  in  the  calling  sequence  are  discussed  in 
Paragraph  3.  3. 
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. 2 . Subroutine  ORDER  (N,  A,  B,  C,  XMEf  MEDIAN) 

The  purpose  of  this  subroutine  is  to  order  array  A from  the 

highest  to  the  lowest  entry  and  determine  the  median  entry  in  this  array. 

The  high  rate  telemetry  points  are  ordered  with  respect  to  both  sample  rate 

and  word  length  while  the  low  rate  telemetry  points  are  ordered  only  with 

respect  to  sample  rate.  This  information  is  used  to  determine  mainframe 

sample  rate  and  maximum  word  length. 

This  subroutine  is  called  by  both  subroutines  DPI  and  MIS,  The 

variables  in  the  calling  sequence  are  defined  as  follows: 

N = Number  of  entries  in  telemetry  points  table 

A = One-dimensional  array  consisting  of  sample 

rates  or  word  lengths 

B = One-dimensional  array  consisting  of  number  of 

analog  and  digital  points 

C = One -dimensional  array  consisting  of  sample 

rate's  or  word  lengths 

XM2  = Twice. the  median  value  of  array  A after  it  has 

been  ordered 

MEDIAN  = . Median  entry  in  array  A 

4.4  SUBROUTINE  COMM  (IPIC,  lERR,  ITER,  NCONF,  ICHOSE, 

NCHOSE)  ' ^ ^ ^ ^ ^ 

4.4.1  Purpose  of  Subroutine 

The  communication  subroutine  selects  hardware  for  the  satellite 
command  and  telemetry  system.  Five  configurations  are  provided  for  in  the 
subroutine.  These  are  determined  by  the  complexity  of  the  data  processor 
being  used  and  the  amount  of  data  to  be  transmitted.  The  pieces  of  equipment 
which  may  be  selected  are:  baseband  assembly  unit,  transmitter  antenna(s), 
transmitter(s),  receiver  antenna,,  receiver,  diplexer,  and  signal  conditioner. 
The  pieces  chosen  and  the  nuiriber  chosen  are  configuration  dependent.  Each 
piece  of  equipment  to  be  chosen  is  selected  by  comparing  the  attributes  as 
computed  from  the  user.input,  configuration  number,  and  default  parameter 
values,  with  the  attributes  for  that  piece  of  equipment  in  the  data  base. 


4-9 


There  are  pieces  of  equipment  which  have  constraints  placed  on 
them  for  the  selection  process#  For  example,  a given  baseband  assembly  unit 
may  be  constrained  for  use  with  a given  transmitter  and  no  other.  These 
constraints  are  built  into  the  data  base. 

The  sequences  in  which  equipment  are  selected  in  each  configura- 
tion are  given  below: 


a. 


b. 


c. 


Uplink  Plus  Downlink  [NCONF(4)  = 1] 

1.  Transmitter  antenna 
E.  Transmitter 

3.  . Receiver  antenna 

4. '  Receiver 

5.  Signal  conditioner 

Unified  Link,  Common  Antenna  [NC0NF(4)  = 2 ] 

1.  Baseband  assembly  unit 
E , Antenna 

3.  Transmitter 

4.  Receiver  j 

5.  Signal  conditioner 

6 . Diplexe  r ^ 


(selected) 


(selected) 


Unified  Link,  Separate  Antennas  [NCONF(4)  = 3]. 

1.  Baseband  assembly  unit 

2.  Transmitter  antenna 

3.  Transmitter 

4.  Receiver  antenna 

5.  Receiver 

6.  Signal  conditioner 


(selected) 


d. 


Unified  Link,  Common  Antenna  plus  Downlink  [NCONF(4)  =4] 


1.  Basebcind  assembly  unit 

2.  _ Transmitter  antenna  (unified) 

3.  Transmitter  antenna  (nonunified) 

4.  Transmitter  (unified) 

5.  Transmitter  (nonunified) 

6.  Receiver 

7.  Signal  conditioner 

8.  Diplexe  r 


(selected) 


J 
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Unified  Uink,  Separate  Antennas  plus  Downlink  [NCONF(4)  = 5] 

1.  Baseband  assembly  unit  ^ 

2.  Transmitter  antenna  (unified) 

3.  Transmitter  antenna  (nonunified) 

4.  Transmitter  (unified)  (selected) 

5.  Transmitter  (nonunified) 

6.  Receiver  antenna 

7.  Receiver 

8.  Signal  conditioner 


4.4.2 


Communication  with  Main  Program 


The  variables  listed  in  the  calling  sequence  are  common  to  all 
subroutines  which  select  hardware  and  are  discussed  in  Paragraph  3.3. 

In  addition  to  the  calling  sequence,  Subroutine  COMM  commxmi- 
cates  with  the  main  program  via  four  COMMON  blocks:  USER 4,  USER!, 

BTWN,  and  DBCOM.  Variables  coming  through  USER4  and  USER!  are  user  in- 
puts discussed  in  Paragraph  8.  1 (see  NAMELIST  REQUIR,  DESIRE  and  OPTION). 
The  variables  in  BTWN  and  DBCOM  are  discussed  in  Paragraph  3.  2. 


4.  4.  3 Variables  Specified  in  DATA  Statements 

DATASIGNOl/10.,  10. /,  LMARG/6. , 6. /,  SLANT/- 1.  E+10/, 

GTOT/-1.E+10/,  GR/-1.E+10/,  T/-1.E-H0/,  NF/-1.E+10/; 
. TCLOSS/0.  ,0./,  POLOSS/0,/,  GAMMA/.  1/,  BETA/1.8/, 
GT/-LE+10,  -I.E+IO/,  MODX/0.,  0./,  ANTLOS/0. /, 
COVER/0./ 

where: 


SIGNOI(2) 

Signal -to-noise  ratios  for  transmitter(s)  (dB) 

LMARG(2) 

Link  margin(s)  (dB) 

SLANT 

Slant  range  (nmi) 

GTOT 

Gain-to-temperature  ratio 

GR 

Receiving  antenna  (downlink)  gain  (dB) 

T 

System  noise  temperature  (°K) 

NF 

Noise  figure  (dB) 
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TCLOSS{2) 

POLOSS 

ANTLCS 

GAMMA 

BETA 

GT(2) 

MODX(2) 


COVER 


Transmitter(s)  circviit  loss  ■ 

Polarization  loss 
Satellite  antenna  off-axis  loss 
PRN  modulation  index 
Subcarrier  modulation  index 
Antenna(s)  gain  (dB) 

Transmitter(s)  modulation  type 

MODX  = 0 no  equipment  dependence 
MODX  = 1 phase  modulation 
MODX  = 2 frequency  modulation 
MODX  = 3 amplitude  modulation 

Transmitter  antenna  coverage  (in  percent) 


4.4.4  Other  Subroutines  Called 

4.4.4.  1 Subroutine  BESS  (X,  BEST,  NMAX) 

This  subroutine  uses  a recursive  procedure  for  evaluating 

tables  of  the  Bessel  function,  J (x), 

n ' 

The  variables  in  the  calling  sequence  are  defined  as  follows: 


X = floating  point  single  precision  argument 

BEST  = one-dimensional  array  of  values  of  J (x) 

NMAX  = one  less  than  the  ntimber  of  values  in  BESJ  array: 

i.e.,  BESJ  (n  + 1)  = J^(x),  n = 0,  . . .,  /NMAX/ 

4. 4. 4.  2 Function  RESET  (K) 

This  subroutine,  as  the  name  implies,  resets  or  initializes 
equipment  indices  in  the  data  base. 
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SUBROUTINE  EP  (IPIC,  lERR,  ITER,  NCONF,  ICHOSE,  NCHOSE) 
Purpose  of  Subroutine 


4.  5.  1 

The  electrical  power  subroutine  selects  hardware  which  is 
required  to  regulate  the  electrical  power  for  the  spacecraft  and  batteries 
to  store  the  electrical  power.  Six  configurations  are  considered  in  the  sub- 
routine. These  configurations  are  characterized  by  the  nature  of  the  regula- 
tion and  the  configuration  of  the  solar  arrays. 

All  regulators,  batteries  and  battery  chargers  are  selected  by 
comparing  appropriate  attributes  listed  in  the  data  base  with  satellite  per- 
formance determined  by  the  model.  Regulators  are  selected  on  the  basis 
of  their  ability  to  regulate  the  power  load,  batteries  on  the  basis  of  the 
capacity  needed  during  the  eclipse  portion  of  orbit,  and  battery  chargers 
on  the  basis  of  being  able  to  use  the  excess  power. to  store  energy  back  into 
the  battery. 

The  model  does  not  include  selection  criteria  for  power  control 
units,  central  control  units,  solar  power  distributor,  and  power  distributors. 
The  first  equipments  available  in  the  data  base  are  simply  called  up.  The 
solar  array  area  and  weight  are  sized  primarily  on  the  average  power  load 
required  for  the  spacecraft. 

The  sequences  in  which  equipments  are  selected  in  each  config- 
uration are  given  below: 


a. 


b. 


Shimt  Regulation  - Paddle  or  Body  Mounted  Arrays 
LNCONPrS)  = 1 or  2j  


1.  Shunt  regulator 

2.  Battery 

3.  Battery  charger. 

4.  Power  control  unit 


(selected) 
(called  up) 


Shunt  and  Discharge  Regulation  - Paddle  or  Body  Mounted  Arravs 
lN^CbNF(5)  = 3 or  4J ^ 


1.  Discharge  regulator 

2.  Shunt  regulator 

3 . Batte  ry 

4.  Battery  charger 

5.  Central  control  unit 


(selected) 
(called  up) 
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4.  5.  2 


Communication  with  Main  Program 


The  variables  listed  in  the  calling  sequence  are  common  to  all 
subroutines  which  select  hardware  and  are  discussed  in  Paragraph  3.3. 

In  addition  to  the  calling  sequence,  subroutine  EP  communicates 
with  the  main  program  via  four  named  COMMON  blocks:  PRTCOM,  USER! 
BTWN,  and  DBCOM.  Variables  coming  through  USERI  are  user  inputs 
discussed  in  Paragraph  8.  1 (see  NAMELISTs  REQUIR,  DESIRE  and 
OPTION).  The  variables  in-BTWN,  DBCOM  and  PRTCOM  are  discussed 
in  Paragraph  3.  2. 


4.5.3 


where: 


Variables  Specified  in  DATA  Statements 

DATA  DELE/. 03/,  DEEI/.02/,  DEEM/.  01/,  ETAI/.105/, 

ETAR/1.0/,  Kl/1.02/,  K2/1.4/,  LMBDP/.9/,  SOL/1353./, 
VC/1.1/,  PIE/3.1416/,  CHMINT/2.  0/ 


DELF 

DELI 

DELM 

ETAI 

ETAR 

K1 

K2 

LMBDP 

SOL 


Coverglass  and  coverglass  adhesive  transmissivity 
loss  factor  (dimensionless) 

Array  fabrication  loss  -factor  (dimensionless) 

Miscellaneous  loss  factor  (dimensionless) 

Solar  cell  efficiency  at  28°C,  AMO  illumination 
(dimensionless) 

Power  distribution  loss  factor  (array  to  loads) 

Battery  packing  factor  (dimensionless) 

Battery  structure  weight  factor  (dimensionless) 

Solar  array  factor  (dimensionless)  (active  surface 
area/actual  surface  area) 

Average  solar  intensity  (watts /meter  ) 
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VC  = Minimum,  allowable  cell  voltage  (V  dc) 

CHMINT  = Minimum  allowable  charge  time  (hr) 

4.5.4  Other  Subroutines  Called 

None 
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5.  SUBROUTINES  WHICH  DO  NOT  SELECT  HARDWARE 

5*  1 SUBROUTINE  PRESET  (lERR) 

1.  1 Purpose  of  Subroutine  . 

The  purpose  of  the  subroutine  PRESET  is  to  calculate  values  for  ’ 
those  input  variables  for  which  flags  have  been  specified,  provided  these 
flags  have  not  been  overwritten  by  user  supplied  inputs. 

^*2  Communication  with  Main  Program 

lERR  is  a flag  that  informs  the  main  program  that  subsystem 
reliabilities  cannot  be  preset  with  the  given  information.  Subroutine  PRESET 
communicates  with  the  main  program  via  four  named  COMMON  blocks; 

USERl,  USERR,  USERI  and  BTWN.  Variables  coming  through  USERl, 
USERR,  and  USERl  are  discussed  in  Paragraph  8.  1. 

2 Variables  Specified  in  DATA  Statements 

None. 

5.  1- 4 Other  .Subroutines  Called 
None. 

5.  2 SUBROUTINE  FILTER  (NCONF.  ICODE) 

5.  2.  1 Purpose  of  Subroutine 

Some  combinations  of  configurations  are  known  to  be  unacceptable. 
These  are  filtered  out  without  the  necessity  of  calling  any  subsystems.  As  an 
example,  configuration  1 in  SANDC  and  configuration  1 in  EP  are  incompatible 
because  1 in  SANDC  is  a spinning  vehicle  and  1 in  EP  requires  solar  array 
paddles  which  cannot  be  used  on  a spinning  vehicle.  A complete  description 

of  these  restrictions  is  presented  in  Section  7. 


5-1 


5.2.2 


Communication  with  Main  Program 


NCONF  is  an  array  containing  the  number  of  each  subsystem's 
configuration.  ICODE  is  a return  code  of  0 for  compatible  configurations 
or  -1  for  unacceptable  combinations  of  configurations. 

FILTER  also  uses  values  from  COMMONS  USERl,  USERS, 
USER4,  and  USERl,  all  of  which  are  discussed  in  Paragraph  8.  1. 

5.2.3  Variables  Specified  in  DATA  Statements 
N one  •• 

5.2.4  Other  Subroutines  Called 
None. 


5.  3 SUBROUTINE  INITIL  (NCONF,  lERRI) 

5.  3.  1 Purpose  of  Subroutine 

Some  values  are  needed  before  they  are  calcxilated.  For  ex-, 
ample,  subroutine  SANDC  needs  moments  and  lengths  which  are  calculated 
"downstream"  in  vehicle  sizing.  Approximations  for  such  values  are  cal- 
culated here.  " - 

5.3.2  Communication  with  Main  Program 

NCONF  is  discussed  in  Paragraph  3.  1.  1.  lERRI  is  a flag  which 
is  set  when  the  estimated  satellite  diameter  exceeds  the  maximum  allowable 
si  ze.  Subroutine  INITIL  communicates  with  the  main  program  via  four 
named  COMMON  blocks:  USERl,  USERl,  BTWN  and  PRTCOM. 

5.  3.  3 Variables  Specified  in  DATA  Statements 

None. 

5.3.4  'Other  Subroutines  Called 

None. 
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5.4 


SUBROUTINE  READDB  (lENDDB) 
Purpose  of  Subroutine 


5.4.  1 

This  subroutine  reads  all  data  base  values  for  one  subsystem 
at  a time  and  determines  the  IDB  array.  Of  major  importance  are  the 
equipment  numbers  which  exist  as  the  first  two  digits  of  the  four  digit 
equipment  identification  numbers.  These  are  counted  by  groups  (all  I’s, 

all  2's,  all  3's, ) and  these  counts  exist  as  IDB(l),  IDB(2),  and  so  on. 

The  routine  returns  when  equipment  for  the  next  subsystem  is  encountered, 
i.  e. , when  the  equipment  numbers  begin  to  decrease. 

5*4.2  Communication  with  Main  Program 

lENDDB  is  the  last  column  in  the  data  base  for  the  active  sub- 
system. This  is  needed  for  the  SAVE  routine.  DBCOM  is  the  common 
area  in  which  the  data  base  values  for  each  subsystem  are  stored  (see 
Paragraph  3.  2). 

5*4.3  Variables  Specified  in  DATA  Statements 

DATA  STORE /55*0.  / 

STORE  = variable  used  for  temporary  storage 
5*4.4  Other  Subroutines  Called 

None 

5*  5 SUBROUTINE  SAVE  (IIN.  NIN,  NOWAT.  I TEST,  lENDDB) 

5*  5.  1 Purpose  of  Subroutine 

The  purpose  of  this  subroutine  is  to  build  matrices  needed  by 
other  subsystems.  Specifically  this  routine  concatenates  separate  ICHOSE 
and  NCHOSE  arrays  (with  zeros  taken  out)  which  contain  the  hardware 
I.  D.  's  of  the  equipment  selected  for  the  five  satellite  subsystems  and  the 
number  of  each  equipment  type.  It  also  saves  the  data  required  to  fill  the 
COST,  RED,  THM,  DPIA,  and  SKD  arrays  for  their  subroutines  and  the 
component  volume,  power  and  name  for  the  PRNT  routine. 
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5.  5.  2 Communication  with  Main  Program 

IIN  and  NIN  are  ICHOSE  and  NCHOSE-  of  tlie  active  subsystem 
(described  in  Paragraph  3.  3).  (NOWAT  is  described  in  Paragraph  4.  3.  ) 
ITEST  is  the  largest  possible  number  of  types  of  equipment  chosen  by  a 
subsystem.  The  three  COMMON  areas  (DBCOM,  CHOSE,  PRTCOM) 
which  are  also  used  for  communication  with  the  main  program  are  dis- 
cussed in  Paragraph  3,  2. 

5.  5.  3 Variables  Specified  in  DATA  Statements 
None. 

5.5.4  Other  Subroutines  Called 

None. 

5.  6 SUBROUTINE  VESIZE  (lERR,  NCONF,  ICHOSE) 

5.  6.  1 Purpose  of  Subroutine 

The  vehicle  sizing  subroutine  determines  the  satellite  structpral 
weight,  the  total  weight,  the  satellite  volume,  dimensions,  center  of 
gravity  locations  and  the  satellite  inertial  characteristics.  Three  config- 
urations are  considered  in  the  subroutine.  These~configurations  are 
characterized  by  the  shape  of  the  equipment  bay:  cylinder,  box,  sphere. 
This  corresponds  to  NCONF(6)  = 1,  2,  3,  respectively. 

The  following  quantities  are  computed  in  the  sequence  indicated: 

a.  Equipment  bay  equipment  weight  and  volume 

b.  Equipment  bay  length 

c.  Satellite  length 

d.  Solar  array  dimensions 

e.  Equipment  bay  structural  weight 

f.  Mission  equipment  bay  structural  weight 

g.  Mission  equipment  support  weight 

h.  Total  volume  of  mission  equipment  bay 
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i.  Solar  array  boom  and  mechanism  weight  (paddles) 

j.  Total  mission  equipment  and  external  equipment  weight  and 
volume 

k.  Harness  weight 

l.  Structural  thermal  protection  system  weight 

m.  Satellite  dry  weight 

n.  Satellite  gross  weight 

o.  Satellite  launch  weight 

p.  Mission  equipment  and  mission  equipment  bay  structure  CGs 

q.  Equipment  bay  structure  CGs 

r.  External  equipment  CGs 

s.  Solar  array  CGs 

t.  Satellite  CGs 

u.  Equipment  bay  structure  and  equipment  bay  equipment 
incremental  inertia 

V.  External  equipment  incremental  inertia 

w.  Solar  array  incremental  inertia 

X.  Mission  equipment  bay  incremental  inertia 

y.  Total  satellite  inertia 

z.  Distance  from  satellite  CG  to  main  engine 

_a.  Gas  jet  lever  arms  on  roll,  pitch,  and  yaw  axes 

5.6.2  Communication  with  Main  Program 

All  three  variables  listed  in  the  calling  sequence  are  discussed 
in  Paragraph  3.  3.  (In  this  subroutine  ICHOSE  is  a scalar  which  is  set. 
to  -1  when  the  current  design  is  unacceptable. ) 

In  addition  to  the  calling  sequence,  subroutine  VESIZE  com- 
municates with  the  main  program  via  four  COMMON  blocks:  USERI, 
USER6,  BTWN,  and  PRTCOM.  Variables  coming  through  USERI  and 
USER6  are  user  inputs  discussed  in  Paragraph  8.  1 (see  NAMELISTs 
REQUIR,  DESIRE,  and. OPTION).  The  variables  in  BTWN  and  PRTCOM 
are  discussed  in  Paragraph  3.  2. 
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5.  6.3 


Variables  Specified  in  DATA  Statements 


None. 

5.6.4  Other  Subroutines  Called 

None, 

5.  7 SUBROUTINE  STRUCT  (NCONF) 

5.  7.  1 Purpose  of  Subroutine 

The  structures  subroutine  specifies  the  satellite  loads  environ- 
ment and  sizes  the  solar  array  extension  supports,  the  equipment  bay 
structure,  the  end  covers  and  the  midsection  bulkhead  if  appropriate. 

One  configuration  is  considered  in  the  subroutine.  This  configuration  is 
characterized  by  the  type  of  equipment  bay  structure:  semi-monocoque. 

The  following  quantities  are  computed  in  the  sequence  indicated: 

a.  Solar  array  paddle  applied  load 

b.  Nominal  radius  and  wall  thickness  of  solar  array' extension 
supports 

c.  Loads  applied  to  equipment  bay  structure 

d.  Equivalent  axial  load  on  semi-monocoque  structure 

e.  Equivalent  thickness  of  stiffened  cylinder 

f.  Skin  thickness  of  skin- stringer  assembly 

g.  Stringer  thickness,  height,  spacing,  and  efficiency 

h.  N\miber  of  stringers 

i.  Cylinder  frame,  radius  of  gyration,  area,  height,  thickness 
and  spacing 

j.  Number  of  frames 

k.  Forward  and  aft  end  cover  thickness 

l.  Applied  uniform  load  on  mid  section  bulkhead 

m.  Midsection  bulkhead  thickness 

If  the  equipment  bay  shape  is  a box  instead  of  a cylinder,  quan- 
tities comparable  to  those  listed  above  in  steps  d - k are  computed  for  the 
box  shape. 
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5.7.2 


The  variable  in  the  calling  sequence  is  discussed  in  Paragraph 
3,  3.  In  addition  to  the  calling  sequence,  subroutine  STRUCT  communicates 
with  the  main  program  via  four  COMMON  blocks;  0SER9»  USERI>  BTWN, 
and  PRTCOM.'  Variables  coming  through  USER9  and  USERI  are  user  inputs 
discussed  in  Paragraph  8.  1 {see  NAMELISTs  REQUIR,  DESIRE,  and 
OPTION).  The  variables  in  BTWN  and  PRTCOM  are  discussed  in  Paragraph 
3.2. 


5.  7.  3 Variables  Specified  in  DATA  Statements 

DATA  E,  XNU,  RHO,  SIGY,  PI/1.E7,  .-33,  .1,  3.E4,  3.1416/ 

where; 

E - = Young’s  modulus  (psi) 

XNU  = Poisson’s  ratio 

RHO  = Weight  density  (Ib/in^) 

SIGY  = Yield  stress  (psi) 

5 , 7. 4 Other  Subroutines  Called 

None, 


5.  8.  1 


Purpose  of  Subroutine 


The  reliability  subroutine  incrementally  increases  the  level 
of  redundancy  in  the  spacecraft  system  until  the  system  reliability, 
R(TRUNC),  and  the  mean  mission  duration,  MMD,  specifications  are  met. 
The  procedure  is  constrained  by  a maximum  total  satellite  weight  or  cost 
and  available  equipment  reserves.  The  subroutine  operates  to  meet  the 
system  reliability  specification  prior  to  meeting  the  mean  mission  dura- 
tion requirement. 

Two  configurations  are  considered  in  the -subroutine.  These 
configurations  are  single  system  redundancy  and  dual  system  redundancy. 
This  corresponds  to  NCONF(7)  = 0,  1 respectively. 
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The  principle  of  operation  is  to  add  a redvindancy  to  a single 
module,  then  calculate  the  new  system  reliability  and  the  payoff,  as 
defined  by 

RHO  = 

A weight 

This  is  repeated  for  each  module  where  equipment  reserves  are  available. 
The  module  offering  the  greatest  payoff  is  selected,  and  the  following  three 
tests  are  applied: 

a.  Is  RHO  large  enough?  (The  threshold  is  preselected.) 

b.  Is  spacecraft  weight  or  cost  below  the  maximum  allowed? 

c.  Is  the  R(TRUNC)  still  short  of  the  requirement? 

If  these  tests  are  passed,  the  subroutine  begins  the  selection  process 
again.  This  loop  is  retraced  until  one  or  more  of  the  tests  is  failed. 

Failure  of  tests  a or  b results  in  termination  of  the  design  procedure. 

If  a configuration  is  found  which  meets  the  system  reliability  require- 
ment, then  the  above  is  repeated  replacing  R(TRUNC)  with  MMD.  A 
final  design  is  recognized  as  optimum  subject  to  the  imposed  R(TRUNC), 
MMD,  weight,  and  cost  constraints. 

The  subroutine  contains  the  additional  feature  in  that  sub- 
system reliabilities  may  be  specified.  The  task  of  meeting  subsystem 
requirements  is  performed  prior  to  any  total  system  considerations.  The  • 
same  logic  as  presented  above  is  used  for  determining  the  appropriate 
subsystem  redundancies. 

5.8.2  Communication  with  Main  Program 

The  variables  listed  in  the  calling  sequence  are:  a return  in- 
dicator, a double  string  design  indicator,  and  a vector  of  the  number  of 
equipment  types  per  subsystem,  respectively. 

Subroutine  RELY  additioncilly  communicates  with  the  main 
program  through  the  COMMON  blocks:  USERR,  USERI,  BTWN,  DBCOM, 
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CHOSE,  and  PRTCOM.  Variables  in  USERR  and  USERI,  are  user  inputs  and 
are  discussed  in  Paragraph  8.  1 (see  NAMELISTs  REQUIR,  DESIRE,  and 
OPTION).  The. variables  in  BTWN,  CHOSE,  DBCOM.and  PRTCOM  are  dis. 
cussed  in  Paragraph  3.2. 

5.8.3  .yarlables  Specified  in'  DATA  Statements 
■ None 

5.8.4  Other  Subroutines  Called 

5.  8. 4'.  1 Subroutine  RIMOD  (J,  DEL.H,  ITRUNC,  NT,  lADD,  lOPT 

Subroutine  RIMOD  is  called  by  subroutine  RELY.  Subroutine 
RIMOD  computes  the  reliability  function  for  a specified  module  with  or 
without  a redundancy  added.  Five  different  models  are  used,  depending  on 
the  failure  mode  of  an  individual  module.  The  calling  parameters  are: 


J • 

Current  module  number 

DELH  . = 

Time  increment 

ITRUNC  = 

Niimber  of  time  points 

NT 

Input  option 

lADD 

Input  option 

lOPT  = 

Input  option 

Parameters  passed  through. COMMON  block  CHOSE  are: 

NCHOSE  = Initial  number  of  elements  by  module 

SYSPAR  = Matrix  of  model  parameters  (called  DATAB  in 
subroutine  RELY) 

Parameters  passed  through  COMMON  block  DBCOM  are: 

R = Resultant  reliability  function 

NR"  = Number  of  rediindancies  by  module 

5.  8. 4. 2 Subroutine  QSF  (H;  Y,  Z,  NDIM) 

Subroutine  QSF  is  called  by  subroutine  RELY.  Subroutine  QSF 
computes  a vector  of  integral  values  for  a given  equidistant  table  of  func- 
tion values.  QSF  is  a member  of  the  System/360  Scientific  Subroutine 
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Package.  The  calling  parameters  are; 


H 

Y 

Z 

NDIM 


Increment  of  argument  values 
Input  vector  of  function  values 
Resulting  vector  of  integral  values 
Dimension  of  vectors  Y and  Z 


No  parameters  are  passed  in  common. 
5.  8. 4.  3 Subroutine  GAM  (X) 


The  fvinction  GAM  is  called  by  RIMOD.  Function  GAM  computes 
the  gamma  function  of  its  argument,  X,  GAM  uses- a polynomial  approxi- 
mation on  the  interval  (1.0,  2.0). 


5.  8.4.4  Subroutine  CERF  (X) 

The  function  CERF  is  called  by  RIMOD.  Fiinction  CERF  com- 
putes the  error  fimction  for  X in  (0,  0,  4.  0)  and  the  compliment  of  the  error 
function  for  X in  (4.  0,  qs  ).  A Chebyshev  approximation  is  used  in 
both  cases. 

5.9  SUBROUTINE  THRML  (lERR,  NCONF) 

5.9.1  Purpose  of  Subroutine 

The  thermal  sizing  subroutine  determines  the  phase  change 

material  weight,  insulation  area,  heater  power,  radiator  area,  and  types 
of  heat  pipes  to  be  used.  Various  configurations  are  considered  in  the 
subroutine  dependent  upon  variables  such  as  orbit,  shape  of  vehicle,  type 
of  stabilization,  power  requirements,  temperature  limits,  and  battery 
temperatures.  These  variables  are  determined  elsewhere  in  the  model 
and  passed  to  THRML  via  the  common  blocks. 

The  output  quantities  are  computed  in  the  following  sequence: 

a.  Radiator  area  (RADA) 

h.  Heater  power  (HTRPWR) 

c.  Heat  pipe  (HTPIPE) 
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d.  Battery  radiator  area  (RADAB) 

e.  Battery  heater  power  (HTRPRB) 

f.  -■  Battery  variable  conductance  heat  pipe  (VCHP) 

g-  Total  radiator  area. (RAT) 

h.  Total  heater  power  (HPT) 

i.  Total  heat  pipes  (HTPT) 

5.9.2  Communication  with  Main  Program 

Both  variables  listed  in  the  calling  sequence  are  discussed  in 
Paragraph  3.3. 

In  addition  to  the  calling  sequence,  subroutine  THRMB  com- 
mimicates  with  the  main  program  via  three  COMMON  blocks:  USERI, 
-CHOSE,  and  BTWN.  Variables  coming  through  USERI  are  user  inputs 
discussed  in  Paragraph  8.1  (see  NAMELISTs  REQUIR,  DESIRE,  and 
OPTION).  The  variables  in  BTWN  and  CHOSE  are  discussed  in  Para- 
graph 3.2. 


5.  9.3 


where: 


5.  9.4 


Variables  Specified  in  DATA  Statements 

DATA  SIGMA/0.1714  E-08/,  QS/442. /,  EMISS/60. /, 
ALBDO/155./,  CONST/1.5/,  PIE/3.1416/ 


SIGMA 

QS 

EMISS 

ALBDO 

CONST 


Boltzmann  constant  in  Btu/(hr-ft-deg  R^) 

2 

Solar  constant  in  Btu/(hr-ft  ) 

2 

Earth  emission  in  Btu/(hr-ft  ) 

The  Albedo  in  Btu/(hr-ft^) 

The  K constant  (dimensionless) 


Other  Subroutines  Called 


None 
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5.  10 


SUBROUTINE  COSTS  (NCONF,  NEQUIP) 


5.  10.  1 Purpose  of  Subroutine 

The  cost  subroutine  determines  the  cost  of  building  and  inte- 
grating a payload  from  the  design  engineering  phase  to  the  launch  phase. 
Costs  are  broken  down  into  the  following  categories  (variable  names  are 


in  parenthesis): 

DDT&E  (Nonrecurring)  . 

Design  engineering  (DE) 

Test  and  evaluation  (TE) 

Tooling  and  equipment  (TOOLR) 

Quality  control  (QCR) 

Systems  engineering  and  integration 
(SEIR) 

Program  management  (PMR) 


Investment  (Recurring) 

Unit  engineering  (PE) 

Unit  production  (PU) 

Tooling  and  equipment  (TOOLU) 

Quality  control  (QCU) 

Systems  engineering  and  integra- 
tion (SEIP) 

Program  management  (PMP) 


Other  costs  which  are  computed  are  listed  in  the  table  below  (variable 
names  are  written  in  where  computed): 


Cost  Category 

Spacecraft 
Mission  equipment 
Total  payload 
Quality  Units 
GSE 

Uaxmch  support 
Flight  operations 
Contractor  fee 
Program  total 


DDTfcE 

SATR 

XMER 

PAYR 

PAYQUL 

GSE 


FEER 

DDTE 


Investment 

SATINY 

XMEINV 

PAYINV 


Operations 


XL.TOT 

CTOT 

FEEINV  FEEOPS 

XVEST  OPS 


5-12 


5. 10.2 


Commurd cation  with  Main  Program 


Both  variables  listed  in  the  calling  sequences  are  discussed  in 
Paragraph  3.3. 

In  addition  to  the  calling  sequence,  subroutine  COSTS  com- 
municates with  the  main  program  via  five  COMMON  blocks:  USERC, 
USERI,  BTWN,  CHOSE,  and  PRTCOM.  Variables  coming  through  USERC 
are  user  inputs  discussed  in  Paragraph  8.  1 (see  NAMELISTs  REQUIR, 
DESIRE,  and  OPTION).  The  variables  in  BTWN,  CHOSE,  and  PRTCOM 
are  discussed  in  Paragraph  3.  2.' 

5.10.3  Variables  Specified  in  DATA  Statements 

DATAFR,  FP,  FT,  FE,  RE,  RT,  RP,  BE,  BT,  BP,  PI,  SF 

where: 

FR(6)  = Subsystem  design  engineering  cost  factor 

FP(6)  = Subsystem  unit  production  cost  factor 

FE(6)  = Subsystem  unit  engineering  cost  factor 

. FT(6)  = Subsystem  test  evaluation  cost  factor 

RE(6)  = Design  engineering  CER  constant 

RT{6)  = Test  evaluation  CER  constant 

RP(6)  = Production  CER  constant 

BE(6)  = Design  engineering  CER  exponent 

BT(6)  = Test  evaluation  CER  exponent 

BP(6)  = Production  CER  exponent 

The  six  values  in  each  of  the-  above  arrays  are  associated  with  the  follow- 
ing equipment  or  systems  in  the  order  indicated: 

a.  Solar  array 

b.  Wiring  harness 

c.  Thermal 

d.  Converters 

e.  Propellant  feed  systems 

f.  Structures 
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In  addition: 

PI  = Price  index  (i.e.,  change  of  the  value  of  the 

dollars) 

SF  = Optional  factor  {e.  g. , standardization  factor) 

5.10.4  Other  Subroutines  Called 

None 

5.11.  SUBROUTINE  SKED  (NEQUIP,  NCONF) 

5.11.1  Purpose  of  Subroutine 

The  purpose  of  this  subroutine  is  to  calculate  component 
development  lead  time,  subsystem  development  lead  time,  component  quali- 
fication time,  subsystem  qualification  lead  time,  test  lead  time,  and  a total 
time  for  each  subsystem  and  for  the  mission  equipment.  The  critical  path 
is  determined  and  the  associated  times  are  passed  to  the  PRNT  routine. 

5.11.2  Communication  with  Main  Program 

Both  variables  in  the  calling  sequence  are  discussed  in  Para- 
graph 3.  3.  Subroutine  SKED  also  communicates  with  the  main  program 
via  three  COMMON  areas:  CHOSE,  USERS,  and  PRTCOM.  Variables 
coming  through  USERS  are  user  inputs  discussed  in  Paragraph  S.  1 (See 
NAMELISTs  REQUIR,  DESIRE,  and  OPTION).  The  variables  in  BTWN 
and  PRTCOM  are  discussed  in  Paragraph  3.2. 

5.11.3  Variables  Specified  in  DATA  Statements 
DATA  CONF,  ICI 

whe  re : 

CONF(22,  5)  = Configuration  dependent  weighting  factors 
ICI(5)  = Index  with  which  the  CONF  array  is  addressed 

5.11.4  Other  Subroutines  Called 
None 
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5. 12 


SUBROUTINE  PRNT  (lERR,  NEQUIP,  NACCEP,  NCONF) 

5*  12.  1 Purpose  of  Subroutine 

This  subroutine  prints  all  output  determined' by  the  model.  A 
sample  of  the  output  may  be  found  in  Paragraph  8.3.  This  sample  includes 
all  three  possible  levels  (system,  subsystem,  assembly)  of  output  which 
are  available  as  well  as  a glossary  containing  descriptive  information. 
Depending  on  the  value  of  the  parameter,  IPRINT,  system,  system  plus 
subsystem  or  system,  subsystem  and  assembly  design  information  will 
be  printed  out  for  each  design. 

5.12.2  Communication  with  Main  Program 

The  variables  lERR  and  NCONF  listed  in  the  calling  sequence 
are  discussed  in  Paragraph  3.  3.  NEQUIP  is  discussed  in  Paragraph  3.  1. 
NACCEP  is  a coimter  maintained  by  MAIN  and  used  only  by  PRNT.  It  is 
the  acceptable  design  number  identifying  the  particular  run. 

In  addition  to  the  calling  sequence,  subroutine  PRNT  communi- 
cates with  the  main  program  via  five  COMMON  blocks:  BTWN,  PRTCOM, 
CHOSE,  USERP,  and  USERI. 

5.  12.  3 Variables  Specified  in  DATA  Statements 
None. 

5.12.4  Other  Subroutines  Called 

None. 
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6.  DATA  BASE 


Paragraph  6.  1 contains  the  discussion  of  the  data  base,  the 
position  of  the  attributes  contained  therein,  and  a description  of  the  data 
base  tape.  Paragraph  6.2  discusses  the  PRESORT  program  which  may 
reorder  the  data  base  prior  to  exercising  the  model. 

6.  1 FORMAT 

The  data  base  tape  is  a seven  track,  BCD  tape,  800  bpi  and 
blocked  84  characters  per  record.  The  format  is  illustrated  in  Figure  6-1. 

Equipments  in  the  data  base  are  ordered  by:  (1)  subsystems, 

(2)  configuration  within  each  subsystem,  and  (3)  equipment  types  within 
, each  configuration  [sized  equipment(s)  first,  selected  equipment(s)  second]. 
Within  equipment  types,  the  equipment  is  ordered  according  to  the  prime 
technical  performance  parameter.  (This  ordering  may  be  changed  by  the 
PRESORT  routine  discussed  in  Paragraph  6.2.)  A list  of  the  data  base 
equipment  in  the  order  determined  by  these  considerations  is  given  below: 

a.  Stabilization  and  Control 

1.  De  spin  mechanical  and  “electronics  assembly 

2.  Valve  driver  assembly 

3.  Sun  sensor  with  electronics 

4.  Nutation  damper 

5.  Gimbal  electronics  assembly 

6.  Control  timing  assembly 

7.  Biaxial  drive  assembly 

8.  Nonscanning  earth  sensor 

9. -  , Sun  sensor  with  electronics 

10.  Control  electronics  assembly 

11.  Rate  gyro  assembly 

12.  Horizon  sensor 

13.  Reaction  wheel 

14.  Power  converter 

15.  Attitude  reference  electronics 

16.  Valve  driver  assembly 

17.  Rate  integrating  gyros 
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b. 


c . 


d. 


e. 


18.  Horizon  sensor  (with  electronics) 

19.  Electronics  processing  assembly 

20 . Single  gimbal  control  moment  gyro 

21.  Star  sensor  with  electronics 

22.  Electronic  error  processor 

Auxiliary  Propulsion 

1 . Cold  gas  thruster 

2.  Cold  gas  isolation  valve 

3.  Cold  gas  filter 

4.  Cold  gas  pressure  regulator 

5.  Cold  gas  pneumatic  tank 

6.  Cold  gas  fill  and  vent  valve 

7.  Cold  gas  relief  valve 

8.  Monopropellant  thruster 

9.  Monopropellant  isolation  valve 

10.  Monopropellant  filter 

11.  Monopropellant  spherical  tank 

12.  Monopropellant  fill  valve 

13.  Bipropellant  thruster 

14.  Bipropellant  isolation  valve 

15.  Bipropellant  filter 

16.  Bipropellant  tank 

17.  Bipropellant  fill  valve 


Data  Processing  and  Instrumentation 

1.  General  purpose  processor 

2.  Special  purpose  processor  (digital  telemetry  unit 
C ommunications 


1.  Base  band  assembly  unit 

2 . Antenna 

3.  Transmitters 

4.  Receiver 

5.  Signal  conditioner 

6 . Diplexe  r . 

7.  Converters  (transmitter  and  receiver) 

I 

Electrical  Power 


1. 

Shunt  regulator 

2. 

Battery  cells 

3. 

Battery  charger 

4. 

Discharge  regulator 

5. 

Shunt  regulator 

6. 

Battery  charger 

6~2 


7.  Central  control  unit 

8.  Series  load  regulator 

9.  Battery  charger 

10.  Solar  power  distributor 

11.  Power  distributor 

12.  Power  control  unit 

6.2  PRESORT 

A small  program  exists  to  sort  the  data  base  prior  to  sub- 
mitting a run  for  obtaining  preliminary  spacecraft  designs.  It  will  sort 
the  data  base  according  to  weight,  cost,  or  reliability.  A single  digit  in 
Column  1 of  a card  (to  be  read  on  unit  5)  determines  the  sort -variable: 
i = weight  (row  23),  2 or  3 = cost  (row  46  and  47  or  48),  4 = reliability  . 
(row  42).  Input  tape  is  expected  on  unit  8,  Output  tape  is  xinit  9.  Either 
dish  or  tape  is  acceptable  for  both  input  and  output.  Output  should  be 
input  to  the  main  run.  If  this  presort  capability  is  not  used,  the  order 
of  the  data  base  is  determined  by  technical  performance  as  discussed 
in  Paragraph  6.  1. 
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ID 

CO 

Type 


Technical  Characteristics 


E5.0 

A2 

3A6 

Card  1 

5E10.0 

8E10.0 

Card  2 

8E10.0 

Card  3 

8E10.0 

Card  4 
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35 

36 

37 

38 

39 

40 


Sdmp  Rate 
Granularity 
No.  Lo  'T'  Ana 


No.  Lo  ’T'  Dig 
Samp  Rate 
Granularity 


8 El  0.0  Cards 


Safety 


Cost 


46  D.  E.  Cst 

47  T.E.  Cst  8E10.0  Card  6 

48  Unit  Prod 

49  Ref  Quant 

50  Factor 

Schedule 


52 

53 

54 

55 


Devel  Const 

Devel  Var 

Qua  1 Const  5E10. 0 Card  7 

Qual  Var 
State- Art 


Figure  6-1,  Data  Base  Format  (7  Cards /Equipment)  (Continued) 
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7.  RESTRICTIONS  AND/OR  LIMITATIONS 


The  following  tables  detail  both  restrictions  and  limitations 
of  the  model.  The  first  type  of  restriction  is  that  of  incompatibility  be- 
tween, subsystem  configurations  and  user  requirements  (Table  7-1).  The 
second  type  of  restriction  is  that  of  incompatibility  between  subsystem 
configurations  (Tables  7-2  through  7-8). 


Z-L 


Table  7-1. 


Stabilization  and  Control  Configuration  Selection 


R equi  r erne  nt  s 

Dual 

Spin 

Yaw 

Spin 

Three -Axis 
Mass 
Expulsion 

ME 

■with 

CMGs 

ME  and  , 
Momentum 
Wheel 

Orientation 

Inertial 

Yes 

No 

Yes 

Yes 

Yes 

Earth  pointing 

Yes 

Yes 

Yes 

Yes 

Yes 

Sun  pointing 

Yes 

No 

Yes 

Yes 

Yes 

Maneuverability  requirements 
Vehicle  slewing 

No 

Yes 

Yes' 

B 

No 

Pointing  accuracy 

Yes 

Yes 

35-170  mrad  (2-10  deg) 

Yes 

Yes 

Yes 

3.5-35  mrad  (0.2-2  deg) 

Yes 

Yes 

Yes 

Yes 

Yes 

0.  17-3.  5 mrad  (0.  01-0.  2 deg) 

Yes 

No 

No 

Yes 

No 

< 0.  17  mrad  (>  0.  01  deg) 

No 

No 

No 

Yes 

No 

Rate  accuracy 

1.  7-17  mrad/ sec  (0.  1-1.0  deg/sec) 

Yes 

Yes 

Yes 

Yes 

Yes 

0.  17-1.  7 mrad/sec  (0.  01-0.  1 deg/sec) 

Yes 

Yes 

Yes 

Yes 

Yes 

< 0,  17  mrad/sec  (0.  01  deg/ sec) 

No 

No 

No 

Yes 

No 

Legend:  Yes  - Configuration  can  be  used 

No  - Configuration  cannot  be  used 


Table  7-2.  Stabilization  and  Control  Configuration  Compatibility 


Stabilization  and  Control 
Subsystem  Configurations 

.'Data  Processing  Subsystem 

General  Purpose 
Processors 

Special  Purpose 
Processors 

Dual  Spin 

Yes 

Yes 

Yaw  Spin 

Yes 

Yes 

Three-Axis  Mass  Expulsion 

■ Yes 

. . Yes 

Mass  Expulsion  with 
Control- Moment  Gyros, 

Yes 

No 

Mass  Expulsion  with 
Pitch  Mornentum  Wheel 

Yes 

Yes 

Legend: 

Yes  - Compatible 

No  - Incompatible 


Table  7-3,  Auxiliary  Propulsion  Configuration  Selection 


Input  Requirements 

Cold  Gas 

Monopropellant 

Bipropellant 

Thrust 

< ZZ4  newtons  (<  50  lb) 

Yes 

Yes 

Yes 

224-4450  newtons  {50-1000  lb) 

No 

Yes 

Yes 

> 4450  newtons  (>  1000  lb) 

No 

No 

Yes 

Total  Impulse 

* 4 4 

< 4.4  X 10  newton-sec  (<  10  lb-sec) 

Yes 

No 

No 

4.4x  10^-2. 2 X 10^  newton- sec  (lo"^-  5x  lo'^lb-sec) 

'Yes 

Yes  ■ 

No 

2.2x  10^-8. 9x  10^  newton- sec  (5x  10^-2  x 10^  lb- sec] 

No 

Yes 

Yes 

5 5 

> 8.  9 X 10  newton-sec  (2  x 10  Ib-se'c) 

No  ■ 

No 

Yes 

Legend: 

Yds  - Acceptable 
No  - Unacceptable 


Table  7-4.  Data  Processing  Configuration  Compatibility 


Communication 

Configuration 

General 

Purpose 

Processor 

Special  Purpose  Processors 

1 DTU 

2 DTUs 

Uplink,  plus  downlink 

YeS' 

(i  Data  Rate 
Computed) 

Yes 

No 

Unified  link,  common  antenna 

Yes 

(1  Data  Rate 
Computed) 

Yes 

No 

Unified  link,  separate  antennas 

Yes 

(1  Data  Rate 
1 Computed) 

Yes 

No 

. Unified  link,  common  antenna 
plus  downlink 

Yes 

(2  Data  Rates 
Computed) 

No 

Yes 

Unified  link,  separate  antennas 
plus  downlink 

Y es 

(.2  Data  Rates 
Computed) 

No 



Yes 

Legend: 

Yes  - Compatible 
No  - Incompatible 


Table  7-5. 


Communication  Configuration  Selection 


Configurations 

Ranging 
Requi  rement 

Uplink  plus  downlink 

No 

Unified  link,  common  antenna 

Yes 

Unified  link,  separate  antennas 

Yes 

Unified  link,  common  antenna 
plus  downlink 

Yes 

Unified  link,  separate  antennas 
plus  downlink 

Yes 

Legend: 

Yes  - Acceptable 
No  - Unacceptable 
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Table  7-6. 


Electrical  Power  Configuration  Compatibility 


Configuration 

Vehicle  Orientation 

Spinning 

Nonspinning 

Solar  Arrays 

Body  Mounted 

Yes 

Yes 

Oriented  Paddles 

No 

Yes  ' 

Legend; 

Yes  - Compatible 
No  - Incompatible 


Table  7-7.  Vehicle  Shape  Compatibility 


SANDC  Configuration 

Cylinder 

Sphere 

Box 

Spinning 

Yes 

Yes 

No 

3 -Axis 

Yes 

Yes 

Yes 

Legend: 

Yes  - Compatible 
No  - Incompatible 
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Table  7-8. 


Structure  Configuration  Compatibility 


Structural 

Configuration 

V ehicle  Shape 

Cylinder 

Sphere 

Box 

Monocoque 

Yes 

No 

Yes 

• Semi-Monocoque 

Yes 

No 

Yes 

Truss 

Yes 

Yes 



Yes 

Legend; 

.Yes  - Compatible 
No  - ' Incompatible 
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SAMPLE  TEST  CASE 


Paragraph  8.  1 discusses  the  input  variables  to  the  model. 
Paragraph  8.  2 discusses  values  that  were  used  in  the  sample  test  case. 
Paragraph  8.3  contains  the  results  of  the  sample  test  case. 

8.  1 USER  INPUT  VARIABLE  LIST 

Inputs  to  the  model  are. listed  in  Table  8-1.  NAMELIST  names 
are  shown  in  parenthesis.  All  NAMELIST  blocks  must  be  in  the  order 
given.  If  the  user  wishes  to  use  the  default  parameters,  the  variables 
need  not  be  entered.  However,  NAMELIST  control  input  must  exist  for 
each  NAMELIST  section.  For  example: 

Title  Card  (80  columns) 

$ REQUIR 


$ END 
$ DESIRE 


$ END 
.$  OPTION 

» 

$ END 

8.  2 INPUT  VARIABLES  FOR  TEST  CASE 

Figure  8-1  lists  the  variables  which  were  used  for  the  sample 
test  case.  Only  those  variables  that  are  changed  from  the  defaiilt  values 
need  to  be  entered. 
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Table  8-li  User  Input  List 
Required  Input  Data 


FORTRAN  Name  Default 
Value 


Units 


Description  ’ 


MICRO  0 


Set  to  0 for  macro;  set  to  1,  2,  3,  4 or  5 for 
micro.  If  0,  program  operates  in  rnacro  mode.  . 
If  1,  2,  3,  4,  or  5,  program  perfbrms-micro 
search  for  SANDC,  AUXPRO,  DPI,  COMM,  or  EP 
subsystems,  respectively.  For-micro  search 
.on  a specific  subsystem,  user  must  restrict  all 
other  subsystems  to  one  configuration  each. 


IPRINT  ‘ - 

1 

Set  to  1 for  system  level  printout.  Set  to  2 
for  system  and  subsysterh  level  printouts.  Set' 
to  3 for  system,  subsystem,  and  assembly  level 
printouts.  Eero  allows  no  printout. 

T 

24. 

mo 

Mis  sibn  lifetime 

APOGEE 

500. 

nmi 

Orbit  apogee 

PERIGE 

500. 

mni 

Orbit  perigee  , 

SPECl * 

18 

mo 

System  mean  mission  duration  requirement 

SPEC6  * 

0.  6 

System  reliability  requirement  at  end  of  mission 
life.  ‘ 

NOV 

1 

Number  of  qualification  vehicles 

NFV 

4 

Number  of  flight  vehicles 

EQMIWT 

435. 

lb 

Mission  equipment  weight  {must  be  zeroed  out 
if  there  is  no  mission  equipment  one) 

EQM2WT 

435. 

lb 

Mission  equipment  weight  (must  be  zeroed  out 
if  there  is  no_mission  equipment  two) 

EPME 

.200. 

watts 

Mission  equipment  power  requirement 

Either  SPEC  1 or  SPEC  6 can  be  omitted  if  the  other  is  given.  If  SPEC  I < 0.  1,  the  require- 
ment is  ignored,  thereby  reducing  the  execution  time-of  the  program.  If  SPEC  6 < 0.  00001, 
this  requirement  is  ignored;  however,  the  program  execution  time  is  not  reduced. 


Table  8-1.  User  Input  List  (Continued) 
Desirable  Input  Data 


FORTRAN  Name 

Default 

Units  Description 

Value 

lAGNCY 

1 

1 ='USAF,  2 - NASA 

IMETYP 

2 

Mission  equipment  type  (1  means  Communi- 
cations, 2 means  Earth  Observation,  3 means 
Lunar,  4 means  Planetary) 

ISATOR 

1 

1 earth  oriented,  2 sun  oriented,  3 inertially 
oriented 

PHIRX 

0.75 

deg  1 

PHIRY 

0.75. 

deg 

[ Required  attitude  accuracy  about  roll, 

PHIRZ 

0.75 

deg 

1 pitch,  and  yaw  axes 

NMSEQ 

1 

Number  of  mission  equipment  command  and  . 
telemetry  data  arrays  in  ARRAYN  (maximum 
of  3)  ■ ' . . 

Mission  data  for  up  to  three  (3)' equipments  * 

.’ARRAYN  (1,-) 

(0.  , 0.  , 0. ) 

Power  switching  command 

ARRAYN  (2,  -) 

(0. , 0.  , 0.  ) 

Other  commands 

ARRAYN  (3»  -) 

(0. , 0. , 0.  ) 

Time  tagged  commands 
.High  rate  telemetry  =i==i= 

ARRAYN  (4,  -) 

(106.,  0.,  0.) 

Number  of  analog  points 

ARRAYN  (5, -) 

(106.,  0.,  0.) 

^ Number  of  digital  points 

ARRAYN  (6,  -) 

(500'.,  0.,  0.) 

sec 

Sample  rate 

ARRAYN  (7,  -) 

(8.,  0.,  0.) 

bits 

Word  length 
Low  rate  telemetry  ** 

ARRAYN  (8,  -) 

(280.  . 0.  . 0.  ) 

-Number  of  analog  points 

ARRAYN  (9,  -) 

(280.,  0.,  0.) 

j Number  of  digital  points 

Sample  rate 

ARRAYN  (10,-) 

(1..  0.,  0.) 

sec 

■ARRAYN  (11,  -) 

(8.,  0.,  0.) 

bits 

Word  length 

OPSMS 

0. 

ops/ 

sec  Number  of  mission  operations 

MB12SH 

• 1 

Mission  equipment  bay  shape  (1  means  cylin- 
•der»  2 means  box) 

EQMIXL 

(Calculated) 

in. 

No.  1 mission  equipment  bay  length 

EQMIYL 

(Calculated)  • 

in. 

- , No.  1 mission  equipment  bay  width 

EQMIZL 

(Calculated) 

in. 

No.  1 mission  equipment  bay  height  *** 

EQM2XL 

. (Calculated) 

in. 

No.  2 mission  equipment  bay  length 

EQM2YL 

(Calculated) 

in. 

No.  2 mission  equipment  bay  width 

' EQM2ZL 

(Calculated) 

in. 

No.  2 mission  equipment  bay  height  *** 

s Representative  values  shown  for‘ARRAYN  apply  to  the  separate  downlink  configurations.  De- 
■ -signs  not  using  a separate  downlink  for  the  mission  equipment  should  specify  substantially 
smaller  input  values  than  those  values  suggested  since  the  mission  equipment  data  is  combined 
with  the  housekeeping  data'for  transmission  purposes. 

**  For  separate  downlink  designs,  nonzero  high  rate  and  low  rate  telemetry  data  must  be  specified 
for  at  least  one  mission' equipment.  Designs  not  using  a separate  do'wnlink  for  the. mission 
equipment  can  have  ARRAYN  zeroed  out. 

Must  be  zeroed  out  if  not  used. 


8-3 


Table  8-1,  User  Input  List  (Continued) 
Desirable  Input  Data 


FORTRAN  Name  Default  Units 

Value 


EMlyCG 

0. 

in. 

EMIZCG 

0. 

in. 

EM2YCG 

0. 

. in. 

EM2ZCG 

0. 

in. 

NUMEEQ 

0 

EEQWT(l) 

0. 

lb 

EEQWT(2) 

0, 

lb 

EEQWT(3) 

0. 

lb 

EEQWT{4) 

0. 

lb 

EEQWT(5) 

0. 

lb 

EEQWT{6) 

0, 

lb 

EEQWT(7) 

0. 

lb 

EEQWT(8) 

0. 

lb 

EEQWT(9) 

Oj 

lb 

EEQVL{1) 

0. 

ff3 

EEQVL(2) 

0. 

*3 

EEQVL(3) 

0. 

EEQVL(4) 

0. 

*3 

EEQVL(5) 

0. 

EEQVL{6) 

0. 

ft^ 

EEQVL(7) 

0. 

itl 

EEQVL(8) 

0. 

£tl 

EEQVL{9)  . 

0, 

CGEEX(l) 

2. 

CGEEX(2) 

2. 

CGEEX(3) 

2. 

CGEEX(4)' 

2. 

CGEEX(5) 

2. 

CGEEX(7) 

2, 

CGEEX(8) 

2. 

CGEEX(9) 

2, 

EELOC(l) 

3. 

EELOC(2) 

3. 

EELOC{3) 

3. 

EELOC(4) 

3. 

EELOC{5) 

3. 

EELOC{6) 

3. 

EELOC(7) 

3. 

EEL0C(8) 

3. 

EELOC(9) 

3. 

Description 


Mission  equipment  CGs  relative 
to  equipment  bay  interface 


Number  of  external  equipments 
{Maximum  of  9) 


External  equipment  weights 


External  equipment  volurhes 


Location  of  external  equipment  (1  means 
front,  2 means  center,  3 means  aft  end 
along  axis  of  symmetry) 


Location  of  external  equipment  (1  means 
right,  2 means  left,  3 means  top,  4 means 
bottom-looking  along  the  axis  of  symmetry 
from  the  aft  end) 
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Table  8-1.  User  Input  List  (Continued) 
Desirable  Input  Data 


FORTRAN  Name  Default 
Value 


Units 


Description 


RELME 

1.0 

XMER 

0. 

$ 

XMEU 

0. 

$ 

PI 

1.0 

SKDMEd,  -) 

(0., 

0.. 

0.) 

$1000- 

SKDME(2,  -) 

(0.. 

0.. 

0.) 

$1000 

SKDME(3,  -) 

(0., 

0., 

0.) 

mo 

SKDME{4,  -) 

(0.. 

0., 

0.) 

mo 

SKDME(5,  -) 

(0.  , 

0. , 

0.) 

mo 

SKDME(6,  -) 

<0., 

0., 

0.) 

mo 

SKDME(7,  -) 

(0.  , 

0., 

0.) 

Mission  equipment  reliability  at  end 
of  mission  life 

Mission  equipment  DDT&E  cost 

Mission  equipment  average  unit  cost 
Price  index  factor 

Schedule  data  for  up  to  three  mission 
equipment: 

Design  engineering  cost 
Test  and  evaluation  cost 
Development  lead  time  constant 
Development  lead  time  variable 
Qualification  lead  time  constant 
Qualification  lead  time  variable 
State-of-art  factor 
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FORTRAN  Name 


IDEBUG 

ISTRTl 


lENDl 


ISTRT2 

IEND2 

ISTRT3 

1END3 

ISTRT4 

IEND4 

ISTRT5 

IEND5 

ISTRT6 

IEND6 

ISTRTR 

lENDR 

ORBING 

DPHI 

FE 

TSMALL 

XNU 

PDOTO 

PDOTX 

PDOTY 

PDOTZ 

XN 

YN 

ZN 


Table  8-1,  User  Input  List  (Continued) 
Optional  Input  Data 


Default  Units 

Value 

0 

1 


} 

} 

} 

} 

i 

} 


Calculated) 

deg 

. 25 

deg 

4.  1 

lb 

lOD. 

sec 

3. 

1. 

deg/sec 

1. 

1. 

deg/ sec 

1. 

1. 

1. 

1. 

Description 


Input  value  of  1 causes  cost  and  reliability 
debugging  information  to  be  printed  out. 

First  of  all  allowable  five  configurations  to 
be  designed  for  the  Stabilization  and  Control 
subsystem.  ISTRTl  and  lENDI  effectively 
limit  the  number  of  configurations  whose  de- 
signs will  be  attempted.  (Must  be  equal 
for  micro  search  on  another  subsystem). 

Last  of  the  allowable  five  configurations  to 
be  designed  for  the  Stabilization  and  Control 
subsystem.. 

As  above  for  A'uxiliary  Propulsion 


As  above  for  Data  Processing  and 
Instrumentation 

As  above  for  Communications 


As  above  for  Electrical  Power 
As  above  for  Vehicle  Sizing 
As  above  for  ReUability 
Orbit  inclination 

Main  engine  alignment  to  thrust  axis 

Translational  thrust  (must  be  non-zero) 

Main  engine  burn  time  (AV  and  stationkeeping) 
Control  system  efficiency 
Maximum  initial  rate 


Maximum  maneuver  rates 


Number  of  maneuvers  about  roll,  pitch, 
and  yaw  axes 


8-6 


FORTRAN  Name 

PDOTRX 

BDOTRY 

PDOTRZ 

■ TPMIN 
OMEGR 
XNN 
K 

MANY 

EPl 

■ AX 
AY 
AZ 

EA' 

EANT 

'•ALPHA 

TL 

TACCEL 

XNNN 

THOLD 

PDOTAV 


Table  8-1.  User  Input  List  (Continued) 
Optional  Input  Data 


Default 
Value  ■ 

Units 

Description 

. 012 
. 012 
.012 

deg/ sec 

1 Required  system  rate  accuracy 

10.  0 

sec 

Minimum  payload  scan  period  (applies 'only 
to  yaw  spin  configuration) 

(Calculated) 

rpm 

Spin  rate  of  rotor  (applies  only  to  dual 
spin  configuration) 

(Calculated) 

days 

Time  between  spin  axis  corrections 
(applies  only  to  dual  spin  configuration) 

1 

' 

0 if  errors  for  spin  axis  relative- to  nadir; 

1 if  errors  for  payload  relative  to  nadir 
(applies  only  to  dual  spin  configuration) 

1 

4 means  vehicle  skewng  and  prevents  .de- 
sign of  the  dual  spin  configuration;  other- 
wise, no  effect 

.0001  - 

deg/sec 

Maximum  programmed  pitch  over  -rate 
(applies  only  to  three-axis  mass  expulsion 
configuration) 

.05 
.05 
. 05 

deg  1 

Misalignment  errors  in  mounting  inertia 
• measurement  units  (applies  only  to  three- 

axis  mass  expulsion  configuration) 

0.  10 

deg 

Antenna  misalignment  (applies  only  .to 
pitch  momentum  bias  configuration) 

•0.  1 

rad 

Antenna  elevation  (applies  only  to  pitch 
momentum  bias  configuration  and  should 
be  set  to  less  than  one  radian) 

12.  0 

deg 

Thruster  offset  in  roll -yaw  plane  (applies 
only  to  pitch  momentum  bias  configuration) 

1.0 

day 

Time  between  unloading  wheel  momentum 
(applies  only  to  CMG  configuration) 

(Calculated) ' 

sec 

Acceleration  time  for  maneuvering 
(applies  only  to  CMG  configuration) 

4.0 

Number  of  single  gimbaled  gyros 
(applies  only  to  CMG  configuration) 

100000.  . ; 

min 

- Time  vehicle  in  inertial  hold  (applies 
only  to  CMG  configuration)  - 

0.01 

deg/ sec 

Average  body  rate  for  low,  orbit  uhen 

high  accuracy  is  required  (applies  only 
to  CMG  configuration) 


t^ttproducibility  of  the 
ORIGINAL  PAGE  IS  POO 
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Table  8-1.  User  Input  List  (Continued) 
Optional  Input  Data 


FORTRAN  Name 

Default 

Value 

Units 

PDOTST 

0. 0667 

deg/sec 

THETMX 

180. 

deg 

PHIFOV 

40.  0 

deg 

BTRMX 

1.  024x10^ 

bit/ sec 

SCSFL 

0. 

TPRFL 

0. 

lOPTCM 

0 

LINK 

1 

FREQ(2) 

2250.,  2250 

MHz 

NET 

1 

NADIR 

0 

FREQR 

1800. 

MHz 

COMRAT- 

1000. 

baud 

BWIDTH(2) 

(Calculated  )*s: 

Hz 

OPTEMP 

15. 

°C  ' 

EQPF 

5. 

ISBOFG 

0 

XCGSAl 

1. 

Description 

Maximum  rate  at  vfaich  star  inforrriation 
is  obtained  (applies  only  to  CMC  configura- 
tion) 

Maximum  maneuver  angle  (applies  only 
to  CMG  configuration) 

Maximum  range  of  attitude  freedom  re- 
quired to  track  specific  stars  (applies 
only  to  CMG  configuration) 

Maximum  bit  rate 

Special  command  synchronization  flag 
(0  means  no  synchronization  required,  1 
means  synchronization  required) 

Telemetry  processing  flag  (0  means  teleme- 
try processed  separately,  1 means  other- 
wise) 

Ranging  requirement  (0  or  1 for  no  or  yes) 

Communica  tions  link  (0  or  1 for  USB  or 
SGLS)  * 

Frequency  of  downlink  transmitters 
(second  number  refers  to  separate  down- 
link) 

1 = NASA  net,  0 = AFSCF  net 
Nadir  coverage  flag  (0  = no,  1 = yes) 
Receiver  frequency 

Receiver  command  rate 

Bandwidth  for  transmitter  (default  values 
are  flags  that  cause  bandwidth  to  be  com- 
puted as  a function  of  bit  rate) 

Battery  temperature 

Volume  sizing  factor 

Solar  array  boom  drive  requirement 
(0  means  not  required,  1 means  required) 

Location  of  solar  paddles  (1  means  front, 

2 means  center,  3 means  aft  end) 


The  computer  program  does  not  currently  possess  the  ability  to  design  an  USB 
communications  link. 

In  Subroutine  COMM 
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T able  8 - 1 . User  Input  Li  st  { C ontinued) 
Optional  Input  Data 


FORTRAN  Name 

Default 

Value 

Units 

Description 

XCGSA3 

1. 

Location  of  body  mounted  solar  array 
(1  means  front,  2 means  center,  3 means 
aft  end) 

DIAMAX 

120. 

in. 

Maximum  satellite  diameter 

RFIXED 

1.0 

Initial  system  reliability 

KEOPT 

1 

Expense  option  indicator  (1  means 
additional  redundancy  is  penalized  on 
the  basis  of  weight;  otherwise  expense  is 
cost) 

SLBMX 

50000.  0 

lb 

Maximum  system  weight 

ISPT 

0 

Single  point  failure  requirements  option 
(0  = not  in  effect,  otherwise  in  effect) 

ISUB 

0 

Subsystem  requirements  option 
( = at  least  one  subsystem  has  a reliability 
spec,  otherwise  no  reliability  specs  on 
subsystem) 

SPEC(1)=!= 

(Calculated) 

Reliability  requirement  for  the 
Stabilization  and  Control  subsystem 

SPEC(2)* 

(Calculated) 

Reliability  requirement  for  the 
Auxiliary  Propulsion  subsystem 

SPEC{3)* 

(Calculated) 

Reliability  requirement  for  the  Data 
Processing  subsystem 

SPEC  (4)* 

(Calculated) 

Reliability  requirement  for  the 
Communication  subsystem 

SPEC(5)* 

(Calculated) 

Reliability  requirement  for  the 
Electrical  Power  Subsystem 

CA 

10. 

g 

Axial  launch  acceleration 

CE 

5. 

g 

Lateral  launch  acceleration 

FEEPCT 

0.07 

Contractor's  fee  percentage 

j-T_ 

I£  SPEC(K)  < 0.  00001,  the  requirement  for  the  K subsystem  is  ignored. 
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SfiEQUIR 

APOGEE 

= 

0.193229E+05 

EPME 

= 

0.3E+0  3f 

EQMIHT 

= 

O.lSlE-fOS, 

EQH2HT 

- 

0.0, 

I PRINT 

. 

MICRO 

= 

o» 

NFV 

= 

6, 

NQV 

= 

1» 

PERIGE 

= 

0.193229E+05 

SPECl 

- 

0.36E4^02, 

SPECS 

= 

0.236E>00, 

T 

SEND 

0.6E-t-0  2, 

Figure  8-1 


Input  Variables  for  Test  Ca 


SOESZRE 


ARRAYN 

0«16£^02#  0.0.  O.Of  O.Ot 

OtOt  Q.ut  0 . Ct  O.Ot  U.ut 
O.Ot  O.Ot  0.(t  O.Ot  O.Ot 

0.0.  O.Ot  0.0.  0.68£^02t  0 

O.Of  O.Of  C.Of  O.Of  O.Of 

.16E«02, 

O.Of 

0.7SE-D2, 
O.Of  O.Of 

CGEEX 

= 

OtZEi-Olf  0.2E«01t  O.ZEi^Olt 

O.ZE^Olf  0«2Et-01f  0.2E4-01f 

O.ZE^Olf 

O.ZEfOlf 

EELOC 

s 

0.3E-»'01t  0.3E4-01»  a.3E+01t 

0.3E4-Qlf  O.SEtOlf  0.3E«^01f 

0.3E+01f 

0.3E«01f 

EEQVL 

s 

O.Ot  O.Ot  O.Ct  O.Of  OtOf 

O.Of  O.Of  O.Of  OtOf 

EEQHT 

= 

O.Of  O.Of  O.Cf  O.Of  O.Ot 

O.Ot  O.Of  O.C,  0.0, 

EMIYCG 

= 

O.Of 

EH1ZC6 

2C 

O.Ot 

EH2YCG 

= 

O.Ot 

EHZZCG 

s 

O.Ot 

EQHIXL 

X 

0.1>8<>£-l-02f 

EQMIYL 

= 

0.i082£4-0  3f 

EQHIZL 

= 

0.1Q82E4-03f 

EQK2XL 

= 

0.0, 

EQK2YL' 

=' 

O.Of 

E0H2ZL 

X 

O.Of 

lAGMCV 

X 

It 

IKEVYP 

X 

1 1 

ISATOR 

X 

If 

NB12SH 

X 

It 

NHSEO 

X 

It 

NUHEEO 

X 

Of 

OPSHS 

= 

O.Of 

PHIRX 

X 

0.393E-I^00f 

PHIRY 

X 

0.393E400, 

PHIRZ 

= 

0.393E4^00f 

PI 

= 

O.IE+Olf 

RELHE 

X 

O.ZEtOOt 

0.aE4>01«  0.0. 

Q.Oy  O.Ot  O.Of 

0.2E4-01t 

0.3Ef01»' 


Figure  8-1,  Input  Variables  for  Test  Case  (Continued) 


SKOHE 

— OftOf  0«0f 

OcOy  0*0( 

XHER 

= 0*323E4^089 

XHEU 

a 0.33i»E+07» 

SEND  - 

Q«0^  0«Qf  0«0y  0*0f  Q*Of  0 • (9  f O0Q9 

0.0» 


0*0* 


0*0f  0«3f  0*0y 


0 • 0 9 


00 

I 

t— ' 

to 


Figure  8-1.  Input  Variables  for  Test  Case  (Continued) 


SOPTION 
ALPHA  = 
AX  = 

AY 

AZ  = 

8TRMX  = 
BMIOTH  ' = 
CA  = 

ce  - 

COMRAT  - 
OIAMAX  = 
OPHI  ■ = 

EA  = 

EANT 
EPl 

EQPF  = 
PE  = 

FEEPCT  = 
FFEQ  = 
FRtQR-  = 
lENDl 
IDE BUG  = 
1EN02  = 

*I£N03  - 

IEND4  = 
IEN05  = 
IEN06  = 
lENOR 
ICPTCN  = 


0.12E4-02*, 
0.*5E-0i» 
0.5E-01, 
fl.5E-01t 
0.102AE+07 
•0.1E*11,  - 
0.1E-*-D2» 
O.SE^^Olt 
0.iE+04> 
0.108E-f03f 
0.2BE4-00, 
Q.lE>00t 
0*1E4-O0t 
O.lE-03, 
0.1E402* 
0.35E-f01. 
0.7E-01t 

0. 225E>04t 
Q«18E-t-04* 

1. 

If 

2. 

2f 

2f 

2, 

1» 

Of 

If 


t 

0 


.ie+11, 


0 * 2Z5E*0Ut 


Figure  8-1 


Input  Variables  for  Test  Case  (Continued) 


ISBOFG 

0. 

rsPT 

= 

a. 

ISTRTl 

s 

i> 

ISTRT2 

= 

2* 

ISTRT3 

= 

2* 

ISTRT** 

= 

2, 

' 

ISTRT5 

= 

2, 

ISTRT6 

1* 

ISTRTR 

= 

0* 

ISUB 

= 

Of 

K 

= 

1. 

KEOPT 

= 

1» 

LINK 

= 

1» 

HANV 

= 

1» 

NApIR 

= 

1 f 

00 

NET 

s 

0* 

1 

H- 

OHEGR 

- 

0.5eE4-02, 

OPTEHP 

0.15E>02t 

ORBING 

=. 

0.2SE^01« 

PDOTAy 

= 

O.lE'Ol, 

POOTRX 

= 

0.12E-01* 

POOTRY 

= 

0.12E>01» 

POOTRZ 

3 

0.12E-Q1, 

POOTST 

= 

0.&.67E*01. 

POOTX 

3 

O.lE-^01* 

PCOTY 

= 

0*1E4^01« 

POOTZ 

= 

O.IE+Ot. 

PCOTO 

O.IE+Oi* 

Figure  8-1,  Input  Variables  for  Test  Case  (Continued) 

K 

oo 


Ui 

PO 

’fo 

O' 


O' 


K 

o 


lu' 


lA 

N 

CO 

O' 

PO 

in 

pw 


ui 

cv 

h. 

ID 

ID 

-4* 

CO 

CD 

CO 


0» 

o 

O) 


o 


bU 


+ + 

Ui  Ui 
•t  «-{ 


to 

fo 

in  » 


O'o 

•k 

o 

Ho 

CSi 

fO 

o 

o 

UJ 

4> 

+ 

in 

0>\O 

UJ 

UJ 

\0 

rwto 

OO 

CO 

o 

fwCVJ 

H 

o 

o 

oo 

o 

o 

CM 

* 

0k 

o 

u> 

CM 

4’ 

o 

o 

o 

lii 

+ 

N. 

UJ 

tu 

UI  » 

H 

^ o 

K 

o o o o a 


«k 

H 

* 

H 

CM 

•> 

0, 

•> 

H 

4 

H 

o 

o 

o 

o 

o 

o 

O 

O 

+ 

+ 

4- 

4 

4- 

Ui 

UJ 

Ui 

liJ 

UJ 

UJ 

UJ 

Hi 

CM 

▼H 

f>i 

o 

o 

O 

O 

o 

o 

O 

o 

II  . 

II 

n 

M 

II 

II 

U 

M 

II 

II 

11 

II 

It 

II 

II 

II 

It 

II 

II 

II 

> 

O 

o 

UJ 

X 

-i 

UJ 

X 

X 

o 

X 

-1 

PO 

IL 

X . 

U, 

X 

o 

o 

1— 

u 

M 

bL 

CO 

(O 

2 

O 

HH 

X 

a 

M 

iL. 

Q£ 

CO 

o 

CO 

CD 

-J 

CO 

Ui 

a 

<0 

o 

«t 

K 

UJ 

X 

o 

X 

J— 

H 

X 

u. 

Of 

CL 

>- 

X 

(O 

H* 

o 

u 

X 

C9 

O 

X 

.as 

X 

NNX 

X 

X 

X 

3 

X 

X 

z 

> 

NZ 

X 

UJ 

♦4 
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Figure  8-1.  Input  Variables  for  Test  Case  (Contiriued) 


8.  3 SAMPLE  TEST  CASE  RESULTS 

The'  test  case  corresponds  to  the  DSCS-II  satellite.  This 
satellite  provides  for  expanded  conamunicatidns  service  for  worldwide 
military  installations  and  the  National  Command  Authority.  The  satel- 
lite is  drum- shaped.  Two  dish  antennas  on. top  of  the  spacecraft  are 
deployed  in  orbit  to  provide  narrow  beam  coverage.  Conical  horn  earth 
coverage  antennas  are  mounted  on  top  of  the  spacecraft.  An  omni- 
directional command  and  telemetry  antenna  is  deployed  beneath  the 
main  body.  Communications  equipment  is  mounted  on  a mechanically 
despun  platform.  Other  subsystems  are  housed  in  the  main  body  of  the 
spacecraft.  The  test  case  results  are  presented  in  Figure  8-2. 
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♦*  NASA  SYSTEKS  COST/PERFORMANCE  STUDY 


DEFINITIONS  - - 

CONFIGURATIONS  (NCONF) 

STABILIZATION  AND  CONTROL  (NCONFUM 
NCONF(l)=l  IS  DUAL  SPIN 
NC0NF(1)=2  IS  YAN  SPIN 
NC0NF(t»=3  IS  HASS  EXPULSION 
NC0NF(1»=4  IS  MASS  EXPULSION  H/  CHG-S  ' 
NCONF(l)=5  IS  HASS  EXPULSION  W/  M.H.-S 
DATA  PROCESSING  AND  INSTRUMENTATION  (NCONF  (3)) 
NC0NF(3)=1  IS  GENERAL  PURPOSE  PROCESSOR 
NC0NF{3>=2  IS  SPECIAL  PURPOSE  PROCESSOR 
ELECTRICAL  POWER  { NCONF C5>> 

NC0NF(5)=1  IS  SHUNT  REGULATION  - PADDLE  MTO. 
NCONF(5>=2  IS  SHUNT  REGULATION  - BOCY  MTO. 
NC0NF(5»=3  IS  SHNT  ♦ DISCH.REG  - PADDLE  HTD. 
NC0NF<5)=4  IS  SHNT  4 OISCF.REG  - BODY  MTO. 
NCONF(5)=5  IS  SERIES  LOAD  REG.  - PADDLE  MTO. 
NC0NF(B)=6  IS  SERIES  LOAD  REG.  > BOCY  HTD. 


AUXILIARY  PROPULSION  (NCONF (2)) 

NCONF(2)=l  IS  COLD  GAS 
NC0NF(2)=2  IS  MONOPROPELLANT 
KC0NF(2»=3  IS  BIPROPELLANT 
COHHUNICATIONS  (NCONF(4)> 

NC0NF(4»=1  IS' SEPARATE  UPLINK  AND  DOWNLINK 
NCONF(4)=2  IS  UNIFIEO  LINK-COMMON  ANTENNAS 
NCONF(i»J=3  IS  UNIFIED  LINK-SEPARATE  ANTENNAS 
NC0NF(4)=4  IS  UNIFIEO  LINK-COMMON  ANT  4 DOWNLINK 
NC0NF(4)=5  IS  UNIFIEO  LINK-SEPARATE  ANT  + DOWNLINK 
VEHICLE  SIZING  (NC0NF(6>>  ' 

NC0NF(6|s:l  IS  CYLINDER 
NCONF(6>=2  IS  BOX 
NCONF(6»=3  IS  SPHERE 


RELIABILITY 

REDUNDANCY  CONFIGURATION  = 
REDUNDANCY  CONFIGURATION  = 


0 IS  SINGLE  SYSTEM 

1 IS  DUAL  SYSTEM 


. 00 

I. 


OS® 


MESSAGES  (lERRJ 

STABILIZATION  AND  CONTROL 

lERR  = 0 MEANS  NC  MESSAGES 

lERR  = 1 MEANS  MAX  ALLOWABLE  SYS.  ERROR 

lERR  = iX  MEANS  MAX  RATE  ERROR  TOO  SMALL 

lERR  = IXX  MEANS  3-AXIS  WHEELS  ACCEPTABLE 

lERR  = IXXX  MEANS  08L  GIMB.CHGS  ACCEPTABLE 

OATA<  PROCESSING  AND  INSTRUMENTATION 


UNSAT 


lERR  a:  B MEANS  NO  MESSAGES 

lERR  = 1 MEANS  MUX  REQUIRED  ■ 

lERR  = 10  WORD  LENGTH  GREATER  THAN,2B6 

■ lERR  = mo  BIT  RATE  IS  TOO  LARGE 
lERR  = 1000  SPEC.CCHO.SYNC.FLG  NE  0 

lERR  = 10000  END  OF  DATA  BASE  SENSED 
VEHICLE  SIZING 

lERR  = 0 MEANS  NO  MESSAGES 

lERR  = 1 MEANS  BODY  MOUNTED  SOLAR  ARRAY  LENGTH 
EXCEEDS  EQUIPMENT  BAY  LENGTH 


AUXILIARY 
lERR  = 

. lERR  = 

lERR  = 

lERR  = 

THERMAL 
lERR  = 

lERR  = 

, lERR  = 

■ lERR  = 

. IERR.= 

lERR  = 
lERR  = 
lERR  = 
lERR  = 


PROPULSION 

0 MEANS  NO  MESSAGES 

1 MEANS  CYCLE.  LIFE  OF  ATTITUDE  CONTROL 

THRUSTERS  IS  TOO  SHORT 

10  MEANS  CYCLE  LIFE  OF  TRANSLATIONAL  THRUSTER 
IS  TOO  SHORT 

11. MEANS  CYCLE  LIVES  OF  BOTH  THRUSTERS  ARE 
TOO  SHORT  . • ■ 


IXXX.XXXXXX 

XIXXXXXXXX 

XXIXXXXXXX 

XXXIXXXXXX 

XXXXIXXXXX 

XXXXXIXXXX 

XXXXXXIXXX 

XXXXXXXIXX 

xxxxxxxxix 


lERR  = XXXXXXXXXl 


MEANS  BATT  RAO  AREA  IS  SUPPLIED 
IN  RADA8 

MEANS  OSR  CONV.  AND  VARIABLE  COND 
UCTANCE  HEAT  PIPE  INFO  IS  REQUIRED 
MEANS  PHASE  CONTROL  MASS  IS 
SUPPLIEC  IN  PCM 

MEANS  ISOTHEHMALIZER  IS  REQUIRED 
MEANS  DIODE  HEAT  PIPE  IS  REQUIRED 
(2  REQUIRED) 

MEANS  CONV.  HEAT  PIPE  IS  REQUIRED. 
MEANS  OSR  RADIATOR  IS  REQUIRED 
MEANS  CONV.  RADIATOR  IS  REQUIRED 
MEANS  HEATER  POWER  IS  SUPPLIED 
IN  HTRPNR 

MEANS  RADIATOR  AREA  IS  SUPPLIED 
IN  RADA 


Figure  8-2.  .Sample  Test  Case  Results 
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00 


OSCS-II 

* * * ■*  SYSTEM  DESCRIPTICN  - - DESIGN  NUMBER  i * ♦ » ♦ 

STABILIZATION  AND  CONTROL 
CONFIGURATION  - - DUAL  SPIN 

POINTING  ACCURACY  = . 393000 (DEG. > 

AUXILIARY  PROPULSION 

CONFIGURATION  MONOPROPELLANT 

TOTAL  IMPULSE  = 20276. (LB-SEC) 

DATA  PROCESSING  AND  INSTRUMENTATION 

CONFIGURATION  - - SPECIAL  PURPOSE  PROCESSOR  (OTU) 

COMPUTER  OFERATICNS  RATE  0*(IFS) 

COPI  TABLE  ENGINEERING  DATA 


NUMBER  OF  COMMANDS 
NUMBER  OF  MAIN  FRAME  HOROS 
MAIN  FRAME  SAMPLE  RATE 
MAIN  FRAME  HORO  LENGTH 
NUMBER  OF  SUBFRAMES 
SUBFRAME  RATE 

NUMBER  CF  WORDS  PER  SUBFRAME 
COMMUNICATIONS 

CONFIGURATION  - - UNIFIED  LINK-COMMON  ANTENNAS 

PRIMARY  DOWNLINK  DATA  RATE  = l,.000(KePS) 

SEPARATE  DOWNLINK  DATA  RATE  « Q.  0.00  (KBPS) 

ELECTRICAL  POWER 

CONFIGURATION  - - SHUNT  - BODY  MOUNTEO 
END  OF  LIFE  POWER  REQUIREMENT  ' = 

TOTAL  SOLAF  ARRAY  AREA  = 

MINIMUM  INSTALLEC  BATTERY  CAPACITY^ 

VEHICLE  SIZING  , • 

CONFIGURATION  --  CYLINDER 

VEHICLE  WEIGHT  =:  1185.66  (LBS)  LAUNCH  HEIGHT  = 

EOUIPMENT  BAY  DIMENSIONS  LENGTH  77. 70 (IN) tHEIGHT 


256. 

64. 

1, 

8. 

6. 

If 

32. 


GOOD 


MISSION  EQUIPMENT  DATA 

0. 

0. 

0. 

0. 

0. 


0000 


SOLAR  ARRAY 

4,43.40  (WATTS) 
ia3.07(FTY*2) 
22.26(ANP-HR) 


, 1 ff.fuixni.r 

MISSION  EQIIPMENT  LENGTH  48. 40(IN) , HEIGHT 

TOTAL  SATELLITE  LENGTH.  126.10(IN) 

MOMENTS  CF  INERTIA(LB-IN**2)  IXX=  2027644.1  IYY= 


1199.9KL8S) 
108.00 (IN) 


1G8.20(IN) , 


X «n 

HIOTH 


WIDTH 


108. g 0(IN) 
108.2Q<IN) 


267.63E6;5-  IZZ=  2676366.5 


Figure  8-2.  Sample  Test  Case  Results  .(Continued)  • 
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SAFETY 

CONFIGURATION  - - SINGLE  SYSTEM 

MEAN  MISSICN  DURATION  <i0.5 

RELIABILITY  .305 

MISSION  LIFETIME  60.8 

COSTS  lALL  AMOUNTS  ARE  IN  DOLLARS) 

DESIGN  ENGINEERING 
TEST  AND  EVALUATION 
TOOLING  ANt  TEST  EQUIPMENT 
QUALITY  COfTROL 

SYSTEMS  ENGINEERING  AND  INTEGRATION 
PROGRAM  MANAGEMENT 
COST  CATEGORY  DOT+E 

SPACECRAFT  20167420.8 

MISSION  EQUIPMENT  323DOQOO.O 

TOTAL  PAYLOAD  52487420.8 

QUALIFICATION  UNITS  10289456.3 

G.S.E.  1213034.8 

LAUNCH  SUPPORT 

CONTRACTOR  FEE  1984493.8 

PROGRAM  TOTALS  65974405.8 

SCHEDULE 

COMPONENT  DESIGN  DEVELOPMENT  TIME 
COMPONENT  QUALIFICATION  TIME 
SUBSYSTEM  DEVELOPMENT  TIME 
SUBSYSTEM  QUALIFICATION  TIME 
SYSTEM  DEVELOPMENT  AND  FLIGHT  READINESS 
SCHEDULE  DURATION  <TO  LAUNCH) 


DOT*E 

8535559.4 

5014470.4 

0.0 

830059.3 

4085266.0 

17Z2045.7 


INVESTMENT 

41696738.0 

20040000.0 
. 61736738.0 


2918771.7 

64655509.6 

14.4(M0NTHS) 
14.i<H0NT hS) 
9.2<M0NTHS) 
a.KMONTHS) 
9.2<M0NTHS) 
41.0 (MONTHS) 


UNIT  ENGINEERING 
UNIT  PRODUCTICN 
TOOLING  AND  TEST  EQUIP. 
QUALITY  CONTROL 
SYSTEMS  ENG.  AND  INT. 
PROGRAM  MANAGEMENT 
T OPERATIONS 


INVESTMENT' (RECURRING) 
2544646.9 
2223816.5 
UIP.  0.0 

349504.0 
T.  1303527.3 

527959.6 


2156736.5 

150971.6 

2307708.1 


00 


Figure  8-2.  Sample  Test  Case  Results  (Continued) 


DSCS-II 

♦ • SUBSVSTEH  OESCRIFTIONS  - - DESIGN  NUH0ER  j,  * ♦ # ♦ 

STABILIZATION  AND  CONTROL 
CONFIGURATION  - - DUAL  SPIN 

EQUIPMENT  CODE  lOENTIFIER  151  252  352  451 

EQUIPMENT  QUANTITIES  .2121 

HEIGHT  14a.l3<LB))>  VOLUME 

DES.  ENG.  COST  2794500.0 

UNIT  PROC.COST  ' 570587.4 

RELIABILITY  .7109 

SCHEDULE 

COW*ONENT  DEVELOPMENT  TIME 

SUBSYSTEM  DEVELOPMENT  TIME  

SYSTEM  DEVELOPMENT  AND  FLIGHT  READINESS  TIME 
lERR  0 

AUXILIARY  PROPULSION 

CONFIGURATION  - - MONOPROPELLANT 
EQUIPMENT  COCE  IDENTIFIER  007  607  902  1001 

EQUIPMENT  QUANTITIES  6259 

HEIGHT  208.07  (LB),  VOLUME 


551  .651  751  801  1401 

1 2 . ' 2 2 2 
5.64<FT**3),  POWER  REQUIRE FENT 
TEST  ♦ EVAL.  COST  1616200.0 

UNIT  ENG,  COST  989741.2 


14. 4< 


(MONTH)  COMPONENT  QUALIFICATIO)' 
9.2(M0NTH)  SUBSVSTEH  QUAL1FICATI0^ 
9,2(M0NTH) 


TIME 

TIME 


ORY  SLIGHT  

DES.  ENG.  COST  1004897.4 

UNIT  PROC.COST  288305.2 

RELIABILITY  .7789 

SCHEDULE 

COMPONENT  DEVELOPMENT  TIME 
SUBSYSTEM  DEVELOPMENT  TINE 
SYSTEM  DEVELOPMENT  AND  FLIGHT 
lERR  11 

• - UA 


459  201  1102 

2 18 
5.22(FT**3) » 


rtUDf.  vukunt  -3 »(,  c.\r  \ • 

86.62(LBS),  EXPENDABLE  HEIGHT 


TEST 

UNIT 


4 *3 (MONTH) 
8. 9 (MONTH) 
READINESS 


.+  EVAL. 
ENG. 


503  701  1201  601 

1.  2 2 2 
POWER  REQUIREMENT 
121.25(LSS) 

COST  6.44989.6 

COST  372322.0 


COMPONENT  QUALIFICATIO)'  TIME 
SUBSYSTEM  QUALIFICATIO)  TIME 
TIME  8.9(MONTH) 


DATA  PROCESSING  AND  INSTRUMENTATION 


00 


CONFIGURATION  SPECIAL 

EQUIPMENT  cote  IDENTIFIER 
EQUIPMENT  QUANTITIES 

HEIGHT  20 

0E3.  ENG.  COST 
UNIT  PROC.COST 
' RELIABILITY 
SCHEDULE 

COMPONENT  DEVELOPMENT  TIME 
SUBSYSTEM  DEVELOPMENT  TIME 
SYSTEM  DEVELOPMENT  AND  FLIGHT 
lERR  1 


PURPOSE 
201 
2 

,80 (LB) I VOLUME 
210000. 0 
59651.8 
;875  0 


PROCESSOR  (OTU) 


2.00(FT**3),  POWER  REQUIREHENT 
TEST  ♦ EVAL.  COST  97000.0 

UNIT  ENG.  COST  77893,0 


8.9 (MONTH)  COMPONENT  QUALIFICATION  TIME 
2.4  (MONTH)  SUBSYSTEM  QUALIFICATIO)  TIME 
READINESS  TIME  2. 4 (MONTH) 


57.KMATT) 


14.1 (MONTH) 
6.1 (MONTH) 


D.O(MATT) 


1.6 (MONTH) 
7.3  (MONTH) 


6.D(HATT) 


2.0  (MONTH) 
7.1 (MONTH) 


Figure  8-2.  Sarnpie  Test  Case  Results  (Continued) 


-21 


c» 


COMHUNlCATICfS 

CONFIGU«?ATION  - UNIFIED  LINK-CCMMON  ANTENNAS. 


EQUIPMENT  COCE  IDENTIFIER  101  201  301 

EQUIPMENT  QUANTITIES  212 

HEIGHT  29.A5(L0)»  tfOtUME 

OES.  ENG.  COST  381000.0 

UNIT  PROC.COST  201216.1 

RELIABILITY  .9728 

SCHEDULE 

COMPONENT  DEVELOPMENT  TIME 
SUBSYSTEM  DEVELOPMENT  TIME 


<♦01  502  601  .701  702 

7.82(FT»»3>,  POWER  REQUIREMENT 
TEST  » EVAL.  COST  416000.0 

UNIT  ENG.-  COST  113450.1 


16.7(MONTHI  COMPONENT  QUALIFICATIOH  TIME 
a.eiMONTH)  SUBSYSTEM  QUALIFICATION  TIME 


SYSTEM  OEVELCPMENT  AND  FLIGHT  READINESS  TIME  2.8<H0NTH) 
lERR  0 

ELECTRICAL  POWER 

CONFIGURATION  - - SHUNT  - BODY  MCUNTED  SOLAR  ARRAY 
EQUIPMENT  COCE  IDENTIFIER  101  211  359  1201 

EQUIPMENT  QUANTITIES 


HEIGHT 


10 

183.20(L6>.  VOLUME 


97.6(L0SI,  SOLAR. ARRAY  HEIGHT 


TEST  ♦ EVAL.  COST 
UNIT  ENG.  COST 


HASNcSS  HEIGHT  

OES.  ENG.  COST  2693868.5 

UNIT  PROC.COST  864986.3 

RELIABILITY  .9246 

SCHEDULE  . 

COMPONENT  DEVELOPMENT  TIME 
SUBSYSTEM  DEVELOPMENT  TIME 
SYSTEM  OEVELCPMENT  AND'  FLIGHT  READINESS  TIME 
MISSION  EQUIPMENT 

HEIGHT  181.00(LB».  VOLUME 

DDT<-E  COST  32300000.  0 

RELIABILITY  .7000 

SCHEDULE 

COMPONENT  DEVELOPMENT  TIME 
SUBSYSTEM  DEVELOPMENT  TIME 


10.93(FT**3J , POHER  RECUIREKENT 


127.5(LBS) 

1549254.4 

665812.5 


16.9 (MONTH)  COMPONENT  QUALIFICATION  TIME 
4.7 (MONTH)  SUBSYSTEM  QUALIFICATION  TIME 
_ __  _ 4.7(monTH) 

257.41 (FT**3),  POHER  RECUIREMENT 
AVERAGE  UNIT  COST  3343000;Q 


0.0 (MONTH)  COMPONENT  QUALIFICATION  TIME 
0.0  (MONTH)  SUBSYSTEM  QUALIFICATION  TIME 


SYSTEM  OEVELCPMENT  AND  FLIGHT  READINESS  TINE  0.0  (MONTH) 


72.3(HATT) 


10.0 (MONTH) 
7.2(M0NTH) 


-.0  (HATT) 


2.9  (MONTH) 
7.2  (MONTH) 


300.0 (HATT) 


0.0 (MONTH) 
0.0 (MONTH) 


Figure  8-2.  Sample  Test  Case  Results  (Continued) 
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Figure  8-2,  Sample  Test  Case  Results  (Continued) 


REPR0nUCm3TY  OF  THE 
ORIGINAL  PAGE  IS  POOR 


« • « 


4 


OSCS*  II 

• ASSEH0LY  DESCRIPTIONS  - - DESIGN  NliMBER  1 ♦ » ♦ » 


STABILIZATION  AND  CONTROL 

VEHICLE 

UNIT 

■UNIT 

UNIT 

VEHICLE. 

IDENT  TYPE 

NO. 

HEIGHT 

VOLUME 

POHER 

O.E.  COST 

T.E.  COST 

PROD.  COST 

ENG  COST 

151  OESPIN  MECP+ELECT. 

2 

30.2 

.9 

8.2 

1468500.0 

660200.0 

277028.5 

544694.6 

252  VALVE  DRIVE  ASSY. 

1 

4.2 

.4 

• 1 

164000.0 

15000.0 

19950.6 

36774.5 

352  SUN  SENSOR  H/ELECT 

2 

2,2 

.2 

1.0 

290000.0 

173000.0 

17100.5 

107  566.6 

451  NUTATION  OAMPNER 

1 

4.0 

.6 

0.0 

. 155000.0 

25000.0 

3550,2 

34756.3 

551  GIH8AL  ELECT.  ASSY 

1 

6.3 

.3 

3.5 

0.0 

Q.i] 

0.0 

0.0 

651  CONTROL  TI»»ING  ASS 

2 

7,4 

.4 

3.5 

651000.0 

440000.0 

191525.9 

241 46 6.. 4 

751  BIAXIAL  DRIVE  ASSY 

2 

14.2 

.3 

2.8 

0.0 

0.0 

0.0 

0.0 

aoi  NONSCAN  EARTH  SENS 

2 

7.7 

. 0 

.6 

66000.0 

105000.0 

56431.7 

2446Q.7 

1401  SaC  PNR  CONVERTER 

2 

5.1 

.2 

10.6 

0.0 

0.0 

0.0 

0.0 

. AUXILIARY  PROPLLSION 

UNIT 

UNIT 

UNIT 

VEHICLE 

VEHICLE 

lOENT  TYPE 

NO. 

HEIGHT 

VOLUME 

POHER 

O.E.  COST 

T.E.  COST 

PROD.  COST 

ENG  COST 

807  THRUSTER  TRW  MRE-3 

6 

.6 

.1 

1.0 

112362.5 

171700.0 

33427.1 

62303. 9 

807  THRUSTER  TRW  NRE-3 

2 

.6 

. 1 

1.0 

101000.0 

101000*0 

13167.4 

37  462.8 

902  MONO  ISO  22700 

5 

1.3 

.1 

0.0 

0.0 

0.0 

0.0 

0.  0 

1081  MONO  F1L3181406100 

9 

.5 

. 1 

-0.0 

0.0 

0.0 

0*0 

0.0 

459  PRES  REG  51310 

2 

4.1 

.4 

-0.0 

511750.0 

212500.0 

80372.5 

189817.9 

.201  ISO  VALVE  272-454 

1 

.5 

.1 

-0.0 

0.0 

0.0 

0.0 

0.0 

1102  MONO  SPHER  80156-1 

a 

2.9 

,2 

-0.0 

0.0 

0.0 

0.0 

> 0.0 

503  PNEUM  TANK. 

1 

27.8 

.8 

-J.O 

0.  0 

Q.O 

0.0  .. 

■ 0.0 

701.  RELIEF  VALVE 

2 

.2 

. C 

-0.0 

O.D 

O.C 

0.0 

0.0 

1201  MONO  FILL 

2 

.2 

.0 

-0.0 

0.0 

0.0 

0*0 

0.0 

601  FILL+VENT  34650-1 

2 

.2 

.0 

-0.0 

0.0 

0.0 

0.0 

0*0 

DATA  PROCESSING  ANO  INSTRUMENTATION 

UNIT 

UNIT 

UNIT 

VEHICLE 

VEHICLE 

IDENT  TYPE 

NO. 

HEIGHT 

VOLUME 

POHER 

D.E,  COST 

T.E.  COST 

PROD.  COST 

ENG  COST 

201  SPEC.  PURP. FRO, DTU, 

2 

10.4 

1.  0 

3.  0 

210000.0 

97000. 0 

59651.8 

77893.0 

communications 

UNIT 

UNIT 

UNIT. 

VEHICLE 

VEHICLE 

IDENT  TYPE 

NO. 

HEIGHT 

VOLUME 

POHER 

O.E.  COST 

T.E.  COST 

PROD.  COST 

ENG  COST 

101  BASEBAND  ASH.  UNIT 

2 

.9 

.0 

.5 

29000.0 

9000.0 

27360.8 

10756.7 

201  antenna 

1 

5.6 

5.6 

-Q.Q 

180000.0 

153000.0 

30400.9 

40362.2 

301  TRA^SMITTER 

2 

1.9 

.2 

10.0 

50000.0 

50000.0 

34201.0 

18  546.0 

401  RECEIVER 

2 

4.0 

.4 

3.0 

76000.0 

171000.0 

59851.6 

26ia.5;9 

13353.1 

502  COHIO  SI6  CONO.IER 

2 

1.4 

.1 

1.0 

. 36QQ0.0 

27000.0 

‘42751,3 

601  CIPLEXER 

1 

. 8 

. 0 

1.0 

lOOOC.O 

6000.0 

6650.2 

2242;  3 

701  CONVERTER  «TRANS.) 

2 

1.8 

.2 

13.5 

0.0 

U.O 

0.0 

u 

702  CONVERTER  RECEIVER 

2 

1.8 

.2 

7.6 

0.0' 

0.0 

0.0 

Figure  8-2,  " Sample  Test  Case 'Results  (Continued) 
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ELECTRICAL  POMER 

lOENT  TYPE 
101  SHUNT  REGULATOR 
211  BATTERY  CELL 
359  BATTERY  CHARGER 
1201  POWER  CONTROL  UNIT 


UNIT  UNIT  UNIT 
NO.  HEIGHT  tfOLUHE  POWER  O.E.  COST 
10  4.2  1.0  -0.0  ' 0.0 

2 &1.6  .2  -0.0  421000.0 

2 3.8  .1  -G.Q  0.0 

1 10.5  .2  -0.0  0.0 


T.E 


COST 
0.0 
143000.0 
' 0.0 
. 0.0 


VEHICLE 
PROD.  COST 
0.0 
89264.7 
0.0 
0.0 


VEHICLE 
ENG  COST 
0.0 
156157.0 
0.  0 
0.0 


EQUIPHENTS  USING  COST  ESTIMATING  RELATIONSHIPS 


NAME 

WEIGHT 

SOLAR  ARRAY 

127.5 

HARNESS 

97.6 

THERMAL  CONTROL 

14.7 

POWER  CONVERTERS 

17.2 

PROPULSION  FEED  SYS. 
STRUCTURE 

175.2 

POWER  CONTROL  UNITS 

60.0 

D.£.  COST 

703177.7 

518594.2 

550490.8 

482774.9 

279784.9 

1100802.7 

568321.7 


T.E.  COST 

385011.2 

437565.9 

266219.0 

283601.1 

159789.6 
422807.4 

300076.2 


VEHICLE 
PROD.  COST 

409768.6 

177366.3 

40950.1 

115211.0 

161338.2 

197919.6 

73375.7 


VEHICLE 

116286.7 

785.92.1 

108254i8 

62737.4 

246838.0 

127437.3 


00 


Figure  8-2.  Sample  Test  Case  Results  (Continued) 


9.  • SOURCE  CODE  LISTING 

The  following  is  a listing  of  the  Systems  Cost /Performance 
Computer  Program. 
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76/76  0PT=2 


FTN  <♦.2+383 


C3/27/75  21.38.09 


5 

10 

15 

20 

f 25 

[V 

30 

35 

40 

45 

50 


C 

C 

C 

C 


C 

C 

C 

C 

c 

c 

c 

c 

c 


c 


c 


THIS 

IS  THE 

MAIN  DRIVER 

NASA 

2 

IT  SEQUENCES 

ALL  SEGMENTS  OF  CODING.H A ^OLES 

I/O, SETS 

NASA 

3 

CONFIGURATIOKS 

NASA 

4 

«««««*  *««**«  *«»***«»*«««««  ««***»***««« 

101574 

1 

FROGRAI 

r NASACP 

(INPUT, OUTPUT, TAPEl, 

TAPE5=INPUT 

,TAPE6=OUTPUT) 

101574 

2 

COHMON 

/USERl/ 

ALPHA, 

AX, 

AY, 

AZ, 

DPHI, 

022575 

1 

1 

cA, 

EANT, 

EPi, 

K, 

MANV, 

022575 

2 

2 

OMEGR, 

PDOTAV, 

PDOTRX, 

PDOTRY, 

POOTRZ, 

022575 

3 

3 

PDOTST, 

PDOTX, 

POOTY, 

POOT2, 

POOTO, 

022575 

4 

4 ■ 

PHIFOV, 

PHIRX, 

PHIRY, 

PHIRZ, 

T ACCEL, 

022575 

5 

5 

THETHX, 

THOLD, 

TL, 

TPMIN, 

TSMALL, 

022575 

6 

6 

XN, 

XNN, 

XNNN, 

XNU, 

YN, 

022575 

7 

7 

2N 

022575 

8 

022575 

9 

COHMON 

/US£R3/ARRAYN(11.3).  BTRHK. 

NHSEQ, 

OPSMS, 

SCSFL, 

022575 

10 

1 

TPRFL 

022575 

11 

' 

022575 

12 

COHMON 

/USER4/BHIDTH(2>, 

FREQ(2>, 

FREQR, 

lOPTCM, 

LINK, 

032475 

1 

1 

NADIR, 

NET 

022575 

14 

' 

022575 

15 

COHMON 

/USER6/ 

CGEEX(9), 

EEL0C(9), 

EEQVL(9), 

EMiYCG, 

EMIZCG, 

022575 

16 

1 

EQPF, 

EM2YCG, 

EM2ZCG, 

ISBOFG, 

NUMEEQ, 

XCGSA3 

022575 

022575 

022575 

17 

18 
19 

COMMON 

/USERS/ 

SKDME(7,3» 

022575 

20 

COHMON 

/USER9/ 

CA, 

CE 

022575 

21 

022575 

22 

COMMON 

/USERR/ 

ISPT, 

ISUB, 

KEOPT, 

RFIXEO, 

SLBMX 

022575 

022575 

022575 

022575 

022575 

23 

24 

25 

26 
27 

COHMON 

/USERC/ 

FEEPCT, 

IMETYP, 

NFV, 

NQV, 

PI 

COHMON 

/USERP/ 

IPRINT, 

ITITLE 

022575 

28 

COMMON 

/USERl/ 

APOGEE, 

COHRAT, 

OIAMAX,  EEQHT(9), 

EPME, 

022575 

29 

1 

EQMIHT, 

EQHIXL, 

EQMIYL, 

EQHIZL, 

EQM2WT, 

022575 

30 

2 

EQM2XL, 

EQH2YL, 

EQM2ZL, 

FE, 

lAGNCY, 

022575 

31 

3 

I DEBUG, 

ISATOR, 

HB12SH, 

OPTEHP, 

ORBINC, 

PERIGE, 

022575 

32 

4 

MICRO, 

RELHE, 

SPEC(6), 

SPECl, 

T, 

XCGSAi, 

022575 

33 

5 

XKER, 

XfEU 

022575 

34 

022575 

35 

COHMON 

/BTHN/ 

ACSSN, 

ACSWP, 

ALT, 

AREA, 

EATCAP, 

022575 

36 

1 

BITRATCZ), 

CLIFE, 

CONVHT, 

Of 

DT, 

022575 

37 

2 

OX, 

OY, 

DZ, 

EQBLG, 

EQBSID, 

022575 

38 

3 ■ 

FC, 

FF, 

HARNHT, 

HPT, 

HTPIPE, 

022575 

39 

4 

HTPT, 

HTRPR8, 

HTRPMR, 

I8TLOC, 

022575 

40 

5 

LHBOO, 

NC, 

OMEGS, 

PASSTR, 

PJ, 

022575 

41 

6 

PL, 

PLMIN, 

POCNHT, 

RADA, 

RAOAB, 

022575 

42 

7 

RAT, 

RJ, 

SABOLG, 

SATL6, 

SATTWT, 

022575 

43 

8 

SATHT, 

SATXC6, 

SATYCG, 

SATZCG, 

SAiXL, 

022575 

44 

9 

SAIYL, 

SAIZL, 

SIDE, 

SYSLB, 

THCMWT, 

022575 

45 

A 

THRUST( 2>  , 

TI, 

TNKMT, 

TPRIM, 

VE, 

022575 

46 

3 

WCHP, 

VOL, 

HATE, 

MB, 

WBT, 

022575  . 

47 

C 

HT, 

XJ, 

XNZERO, 

YJ, 

ZJ 

022575 

48 

022575 

49 

55 


60 


65 


70 


75 


60 

I 

65 


90 


95 


100 

105 


110 


COMMON  /OeCOH/CATAa(55,100) ,IDE(30I 


COMMON  /CHOSE/ 


1 

2 


COST(5»60), 

NCH0SE<6Q>, 

THM{At6fl) 


DPIA(11t60), 
REL  ( &»60)y 


ICHOSE(60), 
SKD(7,60) , 


COMMON/PRTCOM/  ACCRCY, 

1 CDPIC7.2), 

2 CRIHT, 

3 . GSE, 

4 OPS, 

5 PHP, 

6 OOP, 

7 SATINV, 

8 SSRELC6), 

9 TA, 

A TF, 

a ^ TS, 

C XLTOT, 

0 XMEW 


AH, 
CISTAR, 
EQBSTR, 
IREL, 
PAY ]NV, 
PMR, 
QCF, 
SATR, 
SUBE  17), 
TAU(6,6), 
TOOLR, 


BF  , B S , 

, DOTE,  OE, 

FEEOPS,  PEER, 

MMOOLD,NAME(3,6D) , 
PAYR,  PE, 

PU,  PNR(60), 
SA8HWT,  SATAOP, 
SEIR,  SKTAIH6), 

SUBUP(7>, 

TE, 
TRUNC, 


SUaUE(7) , 
TC, 
TOTOPS, 


C 

C 

c 

c 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


♦♦ 

♦ * 
*» 

¥* 

*¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 


AN, 

CTOT, 

FEEINV, 

ITRUNC, 

PAYQUL, 

POHER(6) , 

R0L0(6Q) , 

SEIP, 

SUBT(7>, 

TB, 

TOOLU, 

TTT, VOLUME (6 > , 

XMEH,  XMEINV., 

Armw,  XMEWT,  XVEST 
DIMENSION  NCgNF(6),N£QUIP(5) ,IERR(7) ,IPIC1 (3) , IPIC2 ( 9) ,IPIC3(2>, 

* IPIC4<9) ,IPIC5(5),ICH0S1(C) ,ICH0S2(14),ICH0S3(2) .ICH0S4  Cll), 
«ICHOS5(5)  jNCHOSKS)  .NCHOS2  {l4>  , NCHOS3C2I  ,NCH0S4(lil  ,NCHOS5  <51 
PIMENSION  ITITL.£<13) 

¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 
THE  NAMELIST  INPUTS  ARE  BROKEN  INTO  THREE  CATEGORIES.  THAT 
IS  CATEGORIES  OF  REQUIRED,  DESIRED,  AND  OPTIONAL  PARAMETERS, 

THE  FOLLOHING  IS  A LIST  CF  THE  INPUTS  TO  THE  MODEL  


VQL(60),HEIGHT<6) , 
XMEL,  XMEVL, 


NAME  REP. VALUE  UNITS 

REQUIRED  INPUT  DATA 


APOGEE 

EPME 

EQMIHT 

EQM2WT 

IPRINT 

MICRO 

NFV 

NQV 

PERIGE 

SPEC6 

SPECl 

T 


500  . 
300. 
435. 
435. 
1 
0 
4 
1 

500  . 
0.6 
la. 
24. 


KMI 

WATTS 

LE 

LB 


NMI 


DESIRABLE  INPUT  DATA 
ARRAYN 


CGEEX 

EELOC 

EEQVL 

EEQMT 

EMIYCG 

EMIZCG 

EM2YCG 

EM2ZCG 

EQMIXL 

EQMIYL 


2. 

3. 

0. 

0. 

0 . 

0. 

0. 

0. 

40. 

40. 


HO 

MO 


FT**3 

LE 

IN 

IN 

IN 

IN 

IN 

IN 


DESCRIPTION 
ORBIT  APOGEE 

MISSION  EQUIP  POWER  REQ. 
MISS.EQ.HT.-Q.IF  NC  H.E. 
MISS.EQ.WT.-G.IF  NO  M.E, 
1=SYS,2=S/S, 3= ASSEMBLY 
MICRO  (S/S)  FLAG  • 

NO.  FLITE  VEHICLES 
NO.  QUAL.  VEHICLES 
ORBIT  PERIGEE 
SYS.  REL,  AT  EOL 
SYS.  HMD  REQ. 

MISSION  LIFETIME 


¥¥ 

' ¥¥ 

¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥ ¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 


MISSION  DATA  FOR  UP  TO  3 EQ, 
LOC.QF  EXT.EQ. (FT,CENT.AFT) 
LOC.OF  EXT.EQ. <RT,LFT,TCP,BOT)** 
EXT.  EQ.  VOLUMES  ** 

EXT.  EQ.  HEIGHTS  - - 

M.E.  1 Y-CG 

M.E.  1 Z-CG  ** 

M.E.  2 Y-CG  ** 

M.E.  2 Z-CG  ** 

H.E.  1 LENGTH  **- 

M.E.  1 WIDTH  ** 


022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

0 225.75 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

NASA 

NASA 

NASA 

111974 

121374 

121374 

12137.4 
121374 
121374 
121374 
121374 
121374 

12137.4 
121374 
121374 
121374 
121374 
121374 
121374 
1Z1374 
121374 
121374 
121374 
121374 
121374 
121374 
121374 
121374 
121374 
121374 
121374 
121374 
121374 
121374 
121374 
121374 
121374 


50 

51 

52 
:53 

54 

55 

56 

57 
56 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 
6 9 

37 

38 

39 
4 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 
2-6 
27. 
2 8 

29 

30 

31 

32 

33 


115 

120 

125 

130 

135 

vO 

li*0 

m5 

150 

155 

160 

165 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


** 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
**  , 
• * 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 
¥¥ 


EQMIZL 

EQM2XL 

EQM2YL 

EQM2ZL 

IA6NCY 

IMETYP 

ISATOR 

HB12SH 

NMSEQ 

NUMEEQ 

OPSMS 

PHIRX 

PHIRY 

PHIRZ 

PI 

RELHE 

SKDHE 

XHER 

XHEU 


OPTIONAL  INPUT  DATA 


40. 

IN 

M.E.  1 

HEIGHT 

40. 

IN- 

M.E. 2 

LENGTH 

40  . 

IN 

M.E.  2 

WIDTH 

40. 

IN 

M.E.  2 

HEIGHT 

1 

AGENCY 

type  1=USAF,  2=NASA 

1 

M.E. BAY  SHAPE, 1=CYL|2=B0X 

1 

NO.  M.E.  TT+C  DATA  ARRAYS 

0 

NO.  EXT.  EQ, 

0 • 

OPS/SEC 

NO.  MISS.  OPS 

0.75 

DEG 

REQ.  ROLL  ACCURACY 

0.75 

DEG 

REQ.  PITCH  ACCURACY 

0.75 

DEG 

REQ,  YAW  ACCURACY 

1.0 

- -- 

PRICE  INDEX  FACTOR 

1.0 

M.E.  REL.  AT  EOL 

0. 

--- 

M.E.  SKED  DATA 

** 

0. 

«»  «•  o 

M.E.  DDT+E  COST 

0. 

M.E.  AVG  UNIT  COST 

ALPHA 

12.0 

0E6 

AX 

• 05 

DEG 

AY 

• 05 

DEG 

AZ 

.05 

□EG 

BTRMX 

1.024  E+06BIT/SEC 

BWIOTH 

2*(-l.ElC)HZ 

CA 

10. 

G 

CE 

5. 

G 

COMRAT 

1000. 

BAUD 

OIAMAX 

120. 

IN 

gPHI 

.25 

DEG 

EA 

.10 

DEG 

EANT 

. 1 

RAO 

EPl 

.0001 

OEG/SEC 

EQPF 

2. 

• a— 

FE 

4.1 

0E6 

FEEPCT 

.07 

w « 

FREQ 

2* (2250.)  NHZ 

FREQR 

1800* 

MI-2 

lOEBUG 

0 

lENOl 

5 

... 

IEND2 

3 

IEN03 

2 

^ * 

IEN04 

5 

IEN05 

6 

m w M 

IEND6 

3 

« * w 

lENDR 

1 

lOPTCM 

0 

IS80FG 

0 

ISPT 

0 

ISTRTl 

1 

ISTRT2 

1 

... 

ISTRT3 

1 

m 

ISTRT4 

1 

« « w 

ISTRT5 

1 

• •• 

ISTRT6 

1 

--- 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 

¥¥ 


THRSTR  OFFSET  IN  ROLL-YAW 
HISALIGNMENT  ERRORS  IN 
MOUNTING  INERTIA  UNITS 
t3-AXIS  MASS  EXP.  ONLY) 

MAXIMUM  BIT  RATE 
BANDWIDTH  FOR  XMTR(S) 

AXIAL  LAUNCH  ACCELRATION 
LATERAL^LAUNCH  ACCELERATION 
RECEIVER  COMMAND  RATE 
MAXIMUM  SATELLITE  DIAMETER 
MAIN  ENG. ALIGN  TO  THRST  AXIS 
ANTENNA  MISALIGNMENT (PM  ONLY) 
ANTENNA  ELEVATION  (PM  ONLY) 

MAX  PGM  PITCHOVER  RATE ( 3-AXIS) ♦♦ 
VOLUME  SIZING  FACTOR 
TRANSLATIONAL  THRST < NON-ZERO ) 
CONTRACTOR  FEE  PERCENTAGE  *• 
FREQ  OF  DOWNLINK  XMTR(S) 

RECEIVER  FREQUENCY 

0=OEBU6  OFF,  l^DEBUG  ON 

LAST  ALLOWABLE  FOR  SANDC 

LAST  ALLOWABLE  FOR  AP  ♦♦ 

LAST  ALLOWABLE  FOR  DPI  ** 

LAST  ALLOWABLE  FOR  COMM  ♦♦ 

LAST  ALLOWABLE  FOR  EP 

LAST  ALLOWABLE  FOR  VESIZE 

LAST  ALLOWABLE  FOR  RELY  ** 

RANGING  REQUIREMENT  0=NO,1=YES** 

SA  BOOM  ORIV  REQ  C=N0,1=YES*» 

SINGLE  PT  FAIL  REQ  O=N0 

FIRST  ALLOWABLE  FOR  SANDC  ** 

FIRST  ALLOWABLE  FOR  AP 

FIRST  ALLOWABLE  FOR  CPI  ** 

FIRST  ALLOWABLE  FOR  COMM  ♦♦ 

FIRST  ALLOWABLE  FOR  EP  ** 

FIRST  ALLOWABLE  FOR  VESIZE  ** 


12137L 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

022675 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 

121374 


34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 
1 

74 

75 

76 

77 

78 

79 
(0 
81 
€2 

63 

64 

65 

66 
87 
68 
89 


170 

175 

180 

185 

190 

195 

n£) 

I 

200 

205 

210 

215 

220 

225 


C 

c ** 

c 

c 

c ** 

c *• 

c ** 
c 

c ♦* 
c ** 
c *• 
c ** 

c ♦♦ 
c ** 
c 

c ** 
c ** 
c 

c ** 
c ** 
c ** 
c *» 
c ** 
c *♦ 
c ** 
c *♦ 
c ** 
c ** 
c ** 
c ** 
c ** 
c ** 
c ** 
c ♦♦ 
c ** 
c ** 
c 

C 

c ** 
c ♦* 
c ♦* 

c 

c *♦ 
c ** 
c ♦* 


ISTRTR 

ISUB 

K 

KEOPT 

LINK 

MANV 

NADIR 

NET 

OMEGR 

OPTEHP 

ORBING 

POOTAV 

POOTRX 

PDOTRY 

POOTRZ 

POOTST 

POOTX 

POOTY 

PDOTZ 

POOTO 

PHIFOV 

RFIXED 

SCSFL 

SLBMX 

SPEC(l) 

SPEC(2) 

SPEC(3) 

SPEC (4) 

SPEC(5) 

TACCEL 

THETMX 

THOLD 

TL 

TPMIN 

TPRFL 

rSMALL 

XCGSAl 

XCGSA3 

XN 

XNN 

XNNN 

XNU 

YN 

ZN 


.9 

.9 

.9 

.9 

.9 

20. 

180. 
100000. 
1.0 
1.0 
0 . 

100  . 

1. 

1. 

1. 

21. 

A.O 

3.0 

1. 

1 . 


FIRST  ALLOWABLE  FOR  RELY 
S/S-.REL  FLAG  1=AT  LEAST  1 S/S  *♦ 
AXIS  RELATIVITY  (DUAL-SPIN)  ** 
EXPENSE  OPT  INO 

COMM  LINK(0=USB,1=:SGLS)  ** 

VEH  SKEWING  FLAG; 

NADIR  COVERAGE  FLAG  ** 


1 

■mmm 

0=AFSCF  NET,  0=NASA  NET 

60* 

fiPM 

SPIN  RATE  OF  ROTOR 

¥¥ 

15* 

DEG  C 

BATT.  TEMP. 

¥¥ 

28.5 

OEG 

ORBITAL  INCLINATION 

¥¥ 

.01 

OEG/SEC 

AVG  BODY  RATE  LO  ORBIT  CMG  ONL** 

.012 

DEG/SEC 

REQ  SYS  RATE  ACC.  X 

¥¥ 

.012 

DEG/SEC 

REQ  SYS  RATE  ACC.  Y 

¥¥ 

.012 

OEG/SEC 

REQ  SYS  RATE  ACC.  Z 

¥¥ 

.0667 

CEG/SEC 

MAX  RATE  STAR  RATE  INFO (CMG) 

¥¥ 

1. 

OEG/SEC 

MAX  MANV.  RATE  X 

¥¥ 

1. 

OEG/SEC 

MAX  MANV.  RATE  Y 

¥¥ 

i. 

OEG/SEC 

MAX  MANV.  RATE  Z 

¥¥ 

1. 

CEG/SEC 

MAX  INIT.  RATE 

♦ ♦ 

40.  0 

OEG. 

MAX  RNG  ATT  FROM  TRK  STAR  (CMG)** 

1. 

w 

INITIAL  SYSTEM  RELIABILITY 

0 * 

M M «» 

SPEC.  CMD  SYNC  FLG  0=N0  1=YES  ** 

50000. 

LB 

MAXIMUM  SYSTEM  WEIGHT 

¥¥ 

SEC. 

DEG, 

MIN 

DAY 

SEC. 


DAYS 


SANDC  S/S  REL.  REQ.  12137't 

AP  S/S  REL.  REQ.  ♦*  12137A 

DPI  S/S  REL.  REQ.  12137A 

COHH  S/S  REL.  REQ.  12137A 

EP  S/S  REL.  REQ,  »»  12137A 

ACCEL  TIME  FOR  MANV.  (CMG)  **  12137A 

MAX  MANV  ANGLE  (CMG  ONLY)  ’f*  010  775 

TIME  VEH. INERT  HOLD  (CMG)‘  12137A 

TIME  8TWN  UNLOAD  HHL  MHNT(CMG)**  12137A 
MIN  P/L  SCAN  PERIOD'  010775 

TLMTRY  P.ROG  FLG  0=SEPARATE  12137i* 

MAIN  ENG  BURN  TIME  121374 

LOC  SLR  PDDLES  i=F,2=C,3=A  **  121374 

LOC  BOY  MTD  SA  1=F,2=C,3=A  121374 

NO.  MANV.  ABOUT  ROLL  AXIS  121374 

TIME  BTWN  SA-CORR.  (DUAL  SPIN)**  121374 
NO  SING  GIMB  GYROS  (CMG)  **  121374 

CONTROL  SYSTEM  EFFICIENCY  **  121374 

NO.  MANV  ABOUT  PITCH  AXIS  **  121374 

NO.  MANV  ABOUT  YAH  AXIS  ♦*  121374 

**  121374 

««»««««  «**v*4^«  ««*«««  «»«««*»*««  121374 


C 

C 

C ..  , 

NAMELIST  /REQUIR/  APOGEE,  EPME,  EQMl.WT,  EQH2WT, 

* IPRINT,'  MICRO,  NFV, 

• NOV,  PERIGE,  SPECl,  SPEC6, 


NAMELIST  /DESIRE/ 


AFRAYN, 


EPME, 

EQMIWT, 

EQM2WT, 

121374 

121374 

121374 

121374 

IPRINT,' 

MICRO, 

NFV, 

SPEC6f 

022675 

PERIGE, 

SPECl, 

012775 

CG.EEX,, 

EELOC, 

EECVL, 

012775 

121374 

121374 

121374 

121374 

EEQHT, 

EMIYCG, 

EMIZCG, 

EM2YCG, 

121374 

149 

EM22CG, 

EQMIXL, 

EQMIYL, 

EQMIZL, 

121374 

150 

♦ 

eOM2XL, 

EQM2YL, 

EQN2ZL, 

lAGKCY, 

121374 

151 

IKETYP, 

ISATOR, 

MB12SH, 

NMSEQ,  . 

121374 

152 

230 

♦ 

M'MEEQ, 

OPSMS, 

PHIRX, 

PHIRY, 

121374 

153 

PHIRZ, 

PI » 

RELHE, 

SKOME, 

121374 

154 

XMER, 

XMEU 

121374 

155 

C 

121374 

156 

c 

121374 

157 

235 

c 

121374 

158 

NAMELIST  /OPTION/ 

ALPHA, 

AX, 

AY, 

AZ, 

121374 

159 

1 

BTRMX, 

BHIOTH, 

CA, 

CE, 

121374 

160 

2 

COMRAT, 

DIAMAX, 

OPHI, 

£A, 

121374 

161 

2^0 

3 

4 

EANT, 

FEEPCT, 

EPl, 

FREQ, 

EQPF, 

freqr> 

FE, 

lENOl, 

121374 

121374 

162 

163 

5 lOESUGf 

IEND2, 

IE  N03 , 

IEN04, 

IEND5. 

022675 

3 

6 

IEN06, 

lENOR, 

lOPTCH, 

ISBOFG, 

121374 

165 

7 

ISPT, 

ISTRTl, 

ISTRT2, 

ISTRT3, 

121374 

166 

8 

ISTRt4  f 

ISTRT5, 

ISTRT6, 

ISTRTR, 

121374 

167 

245 

9 

ISUB, 

KEOPT, 

LINK, 

121374 

168 

A 

MANV, 

NADIR, 

NET, 

OMEGr  t 

121374 

169 

B 

OPTEMP, 

ORBINC, 

POOTAV, 

010775 

4 

C 

PDOTRX, 

POOTRY, 

POOTRZ, 

POOTST, 

121374 

171 

0 

POOTX, 

POOTY, 

POOTZ, 

POOTO, 

121374 

172 

250 

E 

PHIFOV, 

RFIXEO, 

SCSFL, 

SL8MX, 

121374 

173 

F 

SPEC, 

TACCEL, 

011275 

2 

6 

THETMX, 

THOLD, 

011275 

3 

vD 

H 

TLl 

TPMIN, 

TPRFL, 

TSMALL, 

010775 

6 

1 

I 

XCGSAl, 

XCGSA  3 » 

XN, 

XNN, 

010775 

7 

o 2 55 

' 

J 

XNNN, 

XNU, 

YN, 

ZN 

010775 

8 

c 

121374 

179 

c 

121374 

leo 

DATA  NEQUIP.NACCEP/6*0/ 

NASA 

60 

DATA  ISTRT1,IEND1,1STRT2,IEN02,ISTRT3,IEN03.ISTRT4.IEN04.2STRT5, 

NASA 

61 

2 60 

*IEN05,ISTRT6*I£N06,ISTRTR,IEN0R/1 

, 5,1,3, 1, 

2 * 1, 5, 1,6 , 1 

*3,0,1/ 

NASA 

62 

DATA  ITEST1,ITEST2,ITEST3,IT£ST4, 

ITtST5/9t 

14,2,11,5/ 

NASA 

63 

FEAD  5,ITITLE  I 

111974 

6 

5 FORMAT<13A6>  ' 

111974 

7 

IDEBUG  = 0 

012775 

6 

265 

SPEC6  = SPEC(6) 

021975 

1 

DO  6 1=1,5 

121374 

183 

€ SPECCI)  = -1. 

121374 

lf4 

READ  (5,REQUIR) 

121374 

185 

READ  (5, DESIRE) 

121374 

186 

270 

READ  (5, OPTION) 

121374 

187 

SPEC (6)  = SPEC  6 

121374 

188 

TTHST=FE 

NASA 

77 

ISEQ=ISATOR 

NASA 

78 

IREL=ISTRTR 

NASA 

79 

275 

ISAT=ISATOR 

NASA 

80 

CALL  PFESETCIERRI) 

121674 

1 

IFQERRl.LT.O)  GO  TO  99 

121674 

2 

HRITE  (6,REQUIR) 

' 

• 

011275 

4 

NRITE  (6,0£SIRE) 

011275 

5 

260 

HRITE  (6,0PTI0H) 

011275 

6 

PRINT  9500 

030375 

1 

9500  FORMAT(lHl) 

030375 

2 

2 65 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 


23 


24 

20- 

11 


91 

1998 


101 


1000 


CO  1 I1=ISTRT1,IEND1 
DO  1 I2=ISTRT2,IEMD2 
DO  1 I3=ISTRT3f IEND3 
CO  1 I4=ISTRT4,IEN04 
DO  1 I5=ISTRT5,IEND5 
DO  1 I6=ISTRT6,IEKD6 
CALL  CPTIME (TIMEIN) 

NC0NF(1)  = I1 
NC0NF(2J  =12 
NC0MF(3)=I3 
NC0NF(6)=16 
NC0NF{5)=I5 
NC0NF(4)=I,4 

CALL  FILTER(NCONF*ICOOE) 

IF  (ICCOE  .LT.  0)  GO  TO  14 
IPIC1(1>=0 
IPICl  (2)=0 
1PIC1(3»=0 
DO  23  1=1,9 
IPIC2(I)=0 
IPIC3(1)=0 
IPIC3<2)=0 
DO  24  1=1,9 
IPIC4<I)=0 
DO  20  1=1,5 
IPIC5(I)=fi 

CALL  INITIL(NCONF,IERRI) 

IF  (lERRI  ,EQ.  1)  GO  TO  14 
PRINT  90  00,NCONF 
FRINT  9000,ICHCSE 
FRIN.T  9000,NCHOSE 
DO  10  ITR=1,2 
REWIND  1 
IENDOB=l 
ITER=ITR-1 
CALL  REAOOB(IEAOOB) 

IF  (ITER  ,.NE.  t ,OR.  MICRC 
IPIC1(1)  = 0 
IPIC1(2)=0 
IPIC1{3)=0 

CALL  SANOCdPICl,  lERR(l)  ,ITER,  ^CC■NF,  ICHOSl , NCHOSl ) ' 


*EQ.  1)  GO  TO  91 


>4) 


0)  GO  TO  14 

. 0»  NEQOIP(l)  = NEQUIP(l)+l 


FRHE  (6,1999)  li 
FORMAT  (3H  TI,£15. 

NEQUIP(1)=0 
go  101  I=1,ITEST1 
IF  (ICHOSKI)  .LT. 

IF.  (ICHOSKI)  .GT, 

CONTINUE 
HE  I6HT(1)=WT 
VOLUME(l)=VOL 
FOMER(l)=PL 
WRITE  (6,1000)  HT, 

F0RHAT(1X,2E15.4> 

NOWAT=l 

CALL  SAV£(ICHOSl,NCHOSl,N04AT,ITESTl,IENDOB) 
CALL  REAODB(IENDOB) 

IF  (ITER  .N£.  C .OR,  MICRO  ,EQ.  2)  GO  TO  92 
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111874 
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NASA 
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345 
350 
355 
360 
3 65 
370 
3 75 
3 80 
385 
390 
395 


28 

92 


102 


93 


lo; 


29 

94 


104 


.AND.  MICRO  .LT.  2)  GO 
.AND.  MICRO  .£Q.  2)  GO 
NEQliIP(2)=NEQUlP(  2)  + l 


TO 

TO 


13 

14 


DO  2 8 1=1,9 
IPIC2(I)=6 

CALL  AUXPRO  ( IPIC2,IERR ( 2 ) , ITER, NCONF,ICHOS2 ,NCHOS2 ) 
NEQUIP(2)  = 0 
CO  102  I=i,ITEST2 
IF  {ICH0S2(I)  .LT.  0 
IF  aCH0S2(I>  .LT.  0 
IF  (ICH0S2(I>  ,GT.  8) 

CONTINUE 
HEIGHT  (2)  = WT-WElGHTtl» 

VOLUME (2)=V0L-V0LUME(1) 

POWER (2)=PL-POH£R<l) 

TEMPMT=WT 

TEMPVL=VOL 

TENPPL=PL 

HRITE  (6,1000)  WT,VOL 

CALL  SAVE{ICH0S2,NCHCS2,N0WAT,ITEST2,IENO08) 

CALL  READDB(IENODB) 

IF  (ITER  ,NE,  0 .OR,.  MICRO  .EQ,  3)  GO  TO  93 

IPIC3(1)=0 

IPIG3(2)=0 

CALL  0PICIPIC3,IERR(3) ,ITER,NCONF, ICH0S3,NCH0S3, NOWAT) 
NEQUIP(3)  = 0 


•AND.  MICRO  .LT.  3)  60 
.AND.  MICRO  «EQ.  3)  GO 
NEQUIP(3)=NEQU1P(3H-1 


TO 

TO 


13 

14 


00  103  I=1,ITEST3 
IF  (ICH0S3(I)  ,LT.  0 
IF  (ICHOS3(I)  .LT.  0 
IF  (ICHOS3(I)  ,GT.  0) 

CONTINUE 
Wei6HT(3)=HT-TEMPHT 
VOLUME  (3  ) = VOL-TEMPVL 
POWER  (3)  =PL-TEMPPL 
TEMPWT=HT 
TEHPVL=VOL 
T£MPPL=PL 

HRITE  (6,1000)  WT.VOL 

CALL  SAVE (ICHOS3,NCHOS 3, NOHAT, ITEST3,IEN0DB) 

CALL  REAOOB(IEhOOB) 

IF  CITER.NE.t  .OR.  MICRO. EQ. 4)  GO  TO  94 

DO  29  1=1,9 

IPIC4(I)=0 

CALL  CCMM(IPIC4,IERR(4),ITER,NC0NF,ICH0S4,NCH0S4) 
NEQUIP(4)  = 0 
00  104  I=1,ITEST4 
IF  (ICH0S4(I)  .LT.  0 
IF  (ICH0S4(I)  ,LT.  0 
IF  (ICH0S4(I)  ,GT.  0) 

CONTINUE 

H£I6HT(4)=HT-TEMPWT 
VOLUME (4) =VOL-TEMPVL 
P0WER(4)=PL-TEMPPL 
TEMPWT=WT 
T£MPVL=VOL 
TEMPPL=PL 

VRITE  (6,1000)  HT.VOL 

CALL  SAVE! ICHOS4,NCHOS4,NCHAT,ITEST4,IENDD8) 

CALL  REAODBdENOOe) 

IF  (ITER  .NE.  C .OR,  MICRO  ,EQ.  5)  GO  TO  95 


.AND.  MICRO  .LT.  4)  GO 
.AND.  MICRO  .EQ.  4)  GO 
NECUIP (4)=NEQUIP(4)+1 


TO 

TO 
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14 
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105 


CO  21  1=1,5 
IPIC5(I)=0 

CALL  EPCIPIC5«IERR(5) ,ITER,NC0NF,ICH0S5,NCH0S5 ) 
WRITE  (6,8999)  PL.PLMlh 
FORMAT  (9H  PL, FLMIN  ,2ei5,4» 

NEaUIP(5»  = 0 


CO  105  I=1,ITEST5 
IF  (ICH0S5(I)  .LT. 

IF  (ICHOSSd)  ,LT. 

IF  CICHOSSd)  .6T. 

IF  (1CH0S5  d>/100 
CONTINUE 

HEI6HT(5)  = HT-TEMPHT 
V0LUHE(5)  = V0L-TEMPVL 
POWER (5)  = PL-TEMPPL-EPME 
HRHE  (6,1000)  HT,WOL 
CALL  SAVE(ICH0S5,NCH0S5, NOHAT 


0 .AND.  MICRO  .LT,  5)  GO  TO 
0 .ANC.  MICRO  .EQ.  5)  GO  TO 
0)  NEQUIP(5)=NEQUIP(5)+1 
EQ.  2>  I8TL0C=N0WAT-1+I 


ITEST5,IEN0DB) 


13 

14 


CALL  VESIZE(IERR(6),NC0NF,ICH0S6) 

IF  (ICH0S6  .LT.  0)  60  TO  13 
IF  (ITER  .GT.  0)  GO  TO  10 
CALL  R£LY(IRTN,IREL,NESUIP) 

PRINT  3000, IRTK 
JOOO  FORMAT  (5H  IRTP.IIO) 

IF  (IRTN  .LT.  0)  GO  TO  13 
IR1=1 

IR2=NECUIP(U 
CO  31  IR=1,IR2 

31  NCHOS1(IR)=NCHOSE (IR) 

IR1=IR2+1 
IR2=NEQUIP(2) 

CO  32  IR=1,IR2 
NCHOS2 (IR) =NCH0SE (IRl) 

32  IR1=IR1+1 
IR2=NEQUIP(3) 

DO  33  IR=1,IR2 
NCH0S3(IR)  .=NCH0SE  (IRl) 

33  IR1=IR1+1 
IR2=NECUIP(4) 

CO  34  IR=1,IR2 
NCHOS4(IR)=NGHOSE  (IRl) 

34  IR1=IR1+1 
IR2=N£QUIP(5) 

DO  35  IR=1,IR2 
NCHOS5(IR)=NCHOSE (IRl) 

35  IR1=IR1+1 
10  CONTINUE 

CALL  STRUCT (NCONF) 

CALL  THRML(IERR(7) , NCONF) 

NC HOSE (NOHAT) =0 
CALL  COSTS  (NCONF, NEQUIF) 

CALL  SKED(NEQUIP, NCONF) 
NACC£P=NACCEP+1 • 

CALL  PRNT(IERR,NEQUIP,NACCEP, NCONF) 
13  IF  (MICRO  .GTi  0)  GO  TO  11 
PRINT  9000, NCONF, 

PRINT  9000  ,(ICHOSE(I) ,1=1, NCWAT) 
PRINT  9000  , (NCHOSEd)  ,1=1, NOWAT) 
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9000  FORMAT  (lOIlO) 

CALL  CPTIME(TIMEOT) 
TIHE=TIME0T-TIMEIN 
PRINT  9999.TIME 

time  for  this  case 

14  fftIMT  9000,NCONF 
FRINT  9000,ICH0SE 
PRINT  9000,NCH0SE 
1 CONTINUE 

IF  (IREL  .EQ.  I£NDR)-GO  TO  99 
IREL=IENDR 
GO  TO  2 
99  STOP 
ENO 


REGISTER  ALLOCATION 

1 registers  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  266 

1 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINMNG  AT  LINE  427' 

1 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  431 

h beginning  at  line  435 

t REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  439 
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SUBROUTINE  PRESET 


76/76  0PT=2 


FTN  4*2+383 


03/27/75  21.38.11 


SUBROUTINE  PRESET (lERR) 

::  §fc5ll"§P  :: 

S?f?"S§Pi5i°3LS"2ESsfSST”vS£tiif """" 

COMMON  /USERl/  ALPHA,  AX,  AY.  AZ.  DPHI. 


COMMON  /USERR/ 
COMMON  /USERl/ 


lOEBUG, 

MICRO, 


COMMON  /BTHN/ 


’ ALPHA, 

AX, 

AY, 

AZ, 

OPHI 

E A , 

EANT, 

EPl, 

K, 

HANV 

OMEGR, 

POOTAV, 

POOTRX, 

POOTRY, 

FDOTRZ 

PDOTST, 

■ POOTX, 

PDOTV, 

FDOTZ, 

POOTO 

PHIFOV, 

PHIRX, 

PHIRY, 

PHIRZ, 

T ACCEL 

THETMX, 

THOLC, 

TL, 

TPMIN, 

TSMALL 

XN, 

ZN 

XNN, 

XNNN, 

XNU, 

YN 

ISPT, 

ISUB, 

KEOPT, 

RFIXEO, 

SLBMX 

APOGEE, 

CCMRAT, 

OIAMAX, 

EEQWT(9), 

EPME 

EGHIWT, 

EQMIXL, 

EQHIYL, 

EQMIZL, 

EQM2WT 

EQH2XL, 

EQM2VL, 

EQM2ZL, 

F£, 

lAGNCY 

IS  fTOR, 

M812SH, 

OPTEMP, 

ORBINC, 

PERIGE 

R EL  HE, 
XMER, 

SPEC(6), 

XMEU 

SPECl, 

tI 

XCGSAl 

ACSSN, 

ACSHP, 

ALT, 

AREA, 

BATCAP 

aiTRAT(Z), 

CLIFE, 

CONVWT, 

SATOAM, 

DT. 

5x, 

DZi 

EQBLG, 

EQ8SI0 

F C, 

FF, 

HARNWT, 

HPT, 

PTPIPE 

HTPT, 

HTRPRB, 

HTRPHR, 

IBTLOC 

LMB  DO, 

NC, 

OMEGS, 

PASSTR, 

PJ 

PL, 

FLMIN, 

POCNWT, 

RADA, 

raoab: 

RAT, 

RJ, 

SABOLG, 

SATLG, 

SATTWT. 

SATWT, 

SATXCC, 

SATYCG, 

SATZCG, 

SAIXL 

SAIYL, 

SAIZL, 

SIDE, 

SYSL8, 

THCMHT] 

THRUST(2), 

TI, 

TNKHT, 

TPRIM, 

VB. 

WCHP, 

VOL, 

WATE, 

HB, 

WBT, 

WT, 

XJ, 

XNZERO, 

YjJ 

ZJ 

«««««««*  4^  •***♦♦*♦♦*♦-»♦♦♦♦♦*♦♦♦**♦*** 

*♦  THE  FOLLOWING  AREA  PRESETS  THERMAL  CONSTANTS  • ♦* 

***  ***^^*l^  *****¥******  ***9  ********9**  *******  **********************^^^.*^ 

ALT  =(APOGEE  f PERIGE)  / 2.0 
IF  CORBINC  .N£.  -360.)  GO  TO  200 
IF  (lAGNCY  ,GT.  1)  GO  TO  110 

IF  lALT  .LT.  500.)  ORBING  = 80.  i 

IF  (ALT  .GE.500.  .AND.  ALT  .LE.  19000.)  ORBING  = 80. 

IF  (ALT  .GT.  19000.)  ORBING  =0.0 
GO  TO  200 


110  IF  (ALT  .LT.  500.)  ORBINC  = 35. 


55 

60 

65 

70 

75 

60 

vO 

I 

H- • 

CvJ 

85 

90 

95 

100 

105 

110 


C 

C 

C 

C 

c 


IF 

IF 


(ALT 

(ALT 


.G£. 

.GT, 


500.  .AND.  ALT 
19000*)  0R6IKC 


*LE.  19000, 
= D.G 


) ORSINC  = 60. 


*♦»*♦*♦♦*♦*♦*«*»*****♦♦♦♦♦♦♦♦♦♦»»***♦*♦♦  9****  ******  ************ 

**  THE  FCLLCHING  AREA  PpSETSREyABILITY  CONSTANTS 

*l^^^^^******  *******  **  ************99**9************************* 


200 


CONTINUE 
BETA  = 1.6 
B = 1./8ETA 

RSI  = T/ ((-ALOG(SPEC(6)) )**B) 
RS2  = SPEC  1/0. 8 8 
A = AHAXKRSltRSZ) 


IF 

IF 

IF 

IF 

IF 

IF 


(SPEC (1) 
(SPEC(2) 
(SP£C(3) 
(SPEC(4) 
(SPEC(5) 
(RELME 


f l\C 

• EQ  ( 

• EQ. 
.EG. 
.EQ. 
.EG. 
. EQ  . 


-1.) 

-1.) 

-1.) 

-1.) 

-1.) 

-1.) 


C 

C 

c 

c 

c 


RTOT  = SPEC(1)*SPEC(2) 
IF  (RTCT  .GE.  SPEC(6>) 
IF  (ISUB  .EQ.  C)  GO  TO 
lERR  = -1 
RETURN 


SPEC(l) 
SPEC (2) 
SPEC(3) 
SPEC(4> 
SPEC (5) 
RELKE  = 


EXP(- 

EXP(- 

EXP(- 

EXP(- 

EXP(- 

EXP(- 


♦SPEC(3»*SPEC(4 
GO  TO  300 
300 


(T/(3.0*A))**eETA> 
(T/(5.3*A))**BETA> 
(T/(3.3*A))**B£TA) 
(T/(3.0-»A>)*»8£TA) 
(T/(4.5^^A))**BETA) 
(T/(1.9^'A))*»8ETA) 
)*SPEC(5)  “^RELHE 


^^^^9^^^**.  ****************  ************9***************************^**** 

♦♦  THE  FOLLOWING  AREA  PRESETS^VEHICLE  SIZING  CONSTANT^ 

********************************************************************** 


300  CONTINUE 


^ * - ~ determine  pj 

EQH2HT 


AND  RJ  - - ♦ * 


305 


396 


C 

C 


EQMMT  = EQMIWT 
DO  305  I = 1.9 
EQMWT  = EQMWf  ^ EEQHT(I),^ 

SATMT  = 36.9  * EQMWT**. 672 
EQBtfOL  = 0.1  • SATWT 
SATDAM  = (EQeW0L*22fll.)**.333 
EQBL6  = SATDAM  . 

IF(SATDAM.LE.DIAMAX)GO  TO  306 
SATDAM  = OIAMAX 

EQBLG  = EQBVOL  * 2201.  / (SATDAM*SATOAM) 

SATINX  = (SATWT  * SATDAM  * SATDAM  / 8.) 

RJ  = SATINX 

* ♦ _ - determine  mission  EQUIPMENT  DIMENSIONS  - 
IF  ( eqmixl.ne.i.eio.ano.eqmiyl%Vi.|io.ano.£Q^ 

* EQM2XL.NE. 1. ElO . AND . EQM2YL .NE . 1 .£10 . AND. EQM2ZL. NE .1 . El  0) 

* GO  TO  400 
EQfffiEN  = 25.0 

Vi  = EQMIWT/EQHOEN 
W2  = EQM2WT/E0M0EN  , 

IF  (MB12SH  .LT.  2)  GO  TO  350 

IF  (EQMIYL.EQ. I.EIC)  EQHiYL  = < Xi* 17^®* 

IF  (EQMIZL.EQ.I.EIO)  EQHIZL  = EQMIYL 
IF  (EQMIXL  .EG.l.ElO)  EOMIXL  = 0.6  * EQHIYL 
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C 


IF  (EQH2YL.EQ. I.EIO)  EOM2YL  = ( V2^1728« /O a 6> . 333 
IF  (EQH2ZL.EQ.1.E10)  EQM2ZL  = EQMIYL 
IF  {EQH2XL  .EQ.l.ElO)  EGMZXL  = 0.6  * EQM2YL 

DIAG  = EQMlYL/0.707 

IF  C0IA6  . LT.  DIAMAX)  GO  TO  310 

01  AG  = DIAMAX 

EQMIYL  = 0.707  ♦ DIAG 

EQHIZL  = EQMIYL 

EQMIXL  = (V1*1726.)/C0.707*OIAG)**2 

310  DIAG  = EQM2YL  /0.707 

IF  (DIAG  .LT.  OlAHAX)  GO  TO  AGO 

DIAG  = DIAMAX 

EQM2YL  = 0.707  * DIAG 

EQM2ZL  = EQM2YL 

EQH2XL  = (V2  * 1728.)  / (0,70)  * DIAG)*»2 

GO  TO  400 


350  IF  (EQMIYL. EQ.l.ElO)  EQMIYL  = ( (Vl*1728. )/fl. A71)**.333 
IF  (EQMIZL  .EQ.l.ElO)  EQHIZL  = EQMIYL 
IF  (EQMIXL. EQ.l.ElO)  EQMIXL  = 0,6  ♦ EQMIYL 

*1  , ' ' 

IF  (EQM2YL. EQ.l.ElO)  EQM2YL  = ( (V2*1728. )/fl.A71) **.333 
IF  (EQM2ZL. EQ.l.ElO)  EQM2ZL  = EQMIYL 
IF  (EQM2XL. EQ.l.ElO)  EQM2XL  = 0.6  ♦ EQM2YL 
IF  (EQMIYL  .LT.  DIAMAX)  GO  TO  360 

EQMIYL  = OIAMAX 
EQHIZL  = EQMIYL 

EQMIXL  = (Vl*1728.)  / (0,785*  E0M1YL**2) 

360  IF  (EQM2YL  .LT. DIAMAX)  G,0  TO  ,L00 
EQM2YL  = DIAMAX 
EQM2ZL  = EQMIYL 

EQM2XL  = (V2  * 1726.)  /.  ( 0. 785*EQM2YL** 2) 

400  CONTINUE 

PJ  = EGMINT  * EQMIYL  * EQMIYL  / 8.0 

*9* **********************  *********9**  9^ V-***¥******V9*V.V.¥* 

**  THE  FOLLOWING  AREA  PRESETS  S AND  C CONSTANTS  ** 

*9999**9 9 9*99*99** *9* *999 999 9999*99 9 9*9 *9*9 9 99999*9 99V* 99 9*9999 999999V 

* * CALCULATE  TACCEL  • ♦ . 

PDOTMX  = AMAXKPCOTX.PDOTY.PDOTZ) 

IF  (PDOTMX. £Q. 0.  .AND.  T ACCEL . EQ .1. Elfl)  GO  TO  401 
TMAX  = THETMX/POOTMX 


7l- 


IF  (TACCEL.EQ.l.ElO)  TACCEL  = 0.1  * TMAX 

010  775 

25 

170 

GO  TO  405 

011575 

2 

401 

TACCEL  = 0. 

011575 

3 

C 

* * CALCULATE  OHEGR  ♦ * 

011275 

22 

405 

IF  (OMEGR  .NE.  I.EIO)  GO  TO  404 

011575 

4 

NRl  = iaOflO./(RJ/4636. 8) 

011675 

20 

175 

HR2  = 90.“( <30.*T)/(7.5*12.)) 

010775 

27 

MR  = OMEGR 

010775 

28 

IF (OHEGR. EQ.l.ElD)  . HR  = AMAXl (HRl, HR2) 

010  775 

29 

IF  (MR.GE.60. ) GO  TO  402 

310  775 

30 

HR  = 60. 

010775 

31 

IfiO 

GO  TO  403 

010775 

32 

402 

IF  (HR.LE.90.)  GO  TO  403 

010775 

.33 

HR  = 90. 

010775 

34 

403 

OHEGR  = NR 

010775 

35 

c 

* * CALCULATE  XNN  * * 

011275 

24 

185 

404 

PHIMAX  = AMAXl  (PHIRX . PHIR7) 

011275 

2-5 

HV  = RJ/4636.8  * OHEGR  * 6.26318  / 60. 

011675 

21 

IF  (XNN.EQ.1.E10>  XNN  = 0.0525  * PHIMAX  * HV 

010775 

38 

lERR  - 0 

121674 

lAl 

RETURN 

121674 

1A2 

190 

c 

121674 

1A3 

END 

121674 

144 

(REGISTER 

ALLOCATION 

i REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  87 


SUBROUTINE 

INITIL  76/76 

0PT  = 2 

FTN  4.2+363 

03/27/75 

21.36.12 

SUWOUTINE  INITIL  (NCCNF, 

I ERR) 

• 

NASA 

231 

C 

THIS  SUBROUTINE  SETS  A 

PPfiOXIMATIONS  FOR  ALL 

. VALUES  IN  BTWN 

NASA 

232 

C 

WHICH  ARE  USED  BEFORE 

THEY  ARE  CALCULATED  ’ 

. 

NASA 

, 233 

DIMENSION  NC0NF(6) 

NASA 

• 234 

5 

COMMON  /USERl/ 

ALPHA, 

AX, 

AY, 

AZ, 

OPHI, 

022575 

1G2 

1 

EA, 

EANT, 

EPl, 

K, 

HANV, 

022575 

1(13 

2 

OME’.GR, 

POOTAV, 

POOTRX, 

POOTRY, 

PDOTRZ, 

022575 

104 

3 

PDOTST, 

POOTXi 

PDOTY, 

PDOTZ, 

PDOTO, 

022575 

105 

4 

PHIFOV, 

PHIRX, 

PHIRY, 

PHIRZ, 

T ACCEL, 

022575 

106 

10 

5 

THETMX, 

THOLD, 

TL, 

TPMIN, 

TSMALL, 

022575 

107 

6 

XN, 

XNN, 

XNNN, 

XNU, 

YN, 

022575 

108 

7 

ZN 

022575 

109 

. c 

02257.5 

110 

COMMON  /USERl/ 

APOGEE, 

COMRAT, 

DIAHAX, 

EEQWT(9), 

EPME, 

022575 

111 

15 

1 

EQMIMT, 

EQMIXI, 

EQMIYL, 

EQMIZL, 

EQM2HT, 

022  575 

112 

2 

EQM2XL, 

EQM2YL, 

EQM2ZL, 

FE, 

lAGNCY, 

022575 

113 

3 IDEBUGt 

ISATOR, 

H812SH, 

OPTEMP, 

ORBING, 

PERIGE, 

0 225-75 

114 

4 MICRO, 

RELME, 

SPEC (6) , 

SPECl, 

t; 

XCGSAl, 

022575 

5 

XHER, 

XMEU 

0 22575 

116 

20 

c 

022575 

117 

COMMON  /BTWN/ 

ACSSN, 

ACSWP, 

ALT, 

AREA, 

BATCAP, 

022575 

118 

1 

BITRATC2), 

■ CLIFE, 

CONVHT, 

0, 

OT, 

022575 

119 

2 

OX, 

DY, 

OZ, 

EQ6L6, 

EQBSID, 

022575 

120 

3 

FC, 

FF, 

HARNHT, 

HPT, 

HTPIPE, 

022575 

121 

f 25 

■4 

HTPT, 

HTRPRB, 

HTRPHR, 

IBTLOC, 

022575 

122 

5 • 

LMBOO, 

NC, 

OMEGS, 

PASSTR, 

PJ, 

022575 

123 

6 

PL, 

PLMIN, 

POCNHT, 

RADA, 

RAOAB, 

022575 

124 

7 

RAT, 

RJ, 

SA80LG, 

SATLG, 

SATTHT, 

0 22575 

125 

8 

SATWT, 

SATXCG, 

SATYCG, 

SATZC6, 

SAIXL, 

022575 

126 

30 

g 

SAIYL, 

SAlZt, 

SIDE, 

SYSLB, 

THCMWT, 

022575 

127 

A 

THRUST(2> , 

TI, 

TNKHT, 

TPRIM, 

ve. 

022575 

128 

a 

VCHP, 

VOL, 

HATE, 

WB, 

WBT, 

022575 

129 

C 

HT, 

XJ, 

XNZERO, 

YJ, 

ZJ 

022575 

136 

c 

0 22576 

131 

35 

•COMMON/PRTCOM/ 

ACCRCY, 

AH, 

AN, 

BF, 

BS, 

022575 

132 

1 

C0Pr<7,2) , 

CISTAR, 

CTOT, 

DOTE, 

0£  , 

022575 

133 

2 

ORIWT, 

EQ8STR, 

FEEINV, 

FEEOPS, 

FEER, 

022575 

134 

3 

GSE, 

IREL, 

IT  RUNG, 

HMD  OLD, 

NAKE(3,60)  , 

022575 

135 

4 

OPS, 

PAYINV, 

PAYQUL, 

PAYR, 

PE, 

022575 

136 

40 

5 

PMP, 

PMR, 

P0HER(6)  , 

PU, 

PWR(6Q), 

022  575 

137 

■- 

6 

QCF, 

OCR, 

RQLO(GO  ), 

SABMHT, 

SATAOP, 

022575 

138 

.7 

SATINY, 

SATR, 

SEIP, 

SEIR, 

SKTAU<6) , 

022576 

139 

8 

SSREL(6), 

SUBE  <7)  , 

SUBT(7) , 

SU8UE<7)  , 

SUBUP(7), 

022575 

140 

9 

TA, 

TAU  (6,6), 

T8, 

TC, 

T£, 

022575 

141 

45 

A 

TF, 

T OOLRf 

TOOLU, 

TOTOPS, 

TRUNC, 

022575 

142 

B 

TS, 

TTT, 

VOLUME (6) , 

VQL(60), 

HEIGHT(6), 

022575 

' 143 

C 

XLTOT, 

XMEH, 

XMEINV, 

XMEL, 

XMEVL, 

022575 

144 

0 

XHEH, 

XMEWT, 

■ XVEST 

0 22575 

145 

IERR=0 

NASA 

253  . 

50 

ACCRCY=AMIN1(PHIRX,PHIRY 

,PHIRZ) 

NASA 

254 

>EQHMT=EQM1WT  + EQM2WT 

NASA 

255 

DO  1 1=1,9 

NASA 

256 

1 EQMHT=£QMWT+E£QHT(I) 

NASA 

257 

SATWT  = 36.9»EQMWT^^*.67  2 

NASA 

258 

-16 


55 

60 

65 

70 

75 

60 

65 

90 

95 

100 

105 

110 


EQ8VOL=. 1*SATMT 

SATXCG  = 500.  + EQGLG  ♦ 0.5 

SATYC6  = 0. 

SATZCG  = 0. 

SAIXL  = 96. 

FS=  (EPME+200.)*2.A 
SAIYL  =.10  33*PS 
SAIZL  =1.0 
TPRIM=T 
N=NC0NF(6) 

GO  TO  (20,10,30)  ,N 
HERE  IF  A BOX 

EQBLG=(EQBVOL*  3456.)  ♦*.333 

EQBOIA=EQeLG 

EQ8SID=.7t 7*EQB0IA 

IF  (EQBOIA  .L£.  DIAMAX)  60  TO  11 

EQBOIA=OIAMAX 

EQBSID=.707*EQOOIA 

EQaLG=(EQBV0L*1728.)/(EQBSI0*EQBSlD) 

SATINX=(SATMT/6.) *E08SIO ^EQBSIO 

SATINY=(SATHT/12.)*(EQBSID»EQBSIO+EQBLG*EQBLG) 

SATINZ=SATINY 

SATDAH=EQBOIA 

GO  TO  100 

HERE  IF  A CYLINDER 
SATOAM=(EQBVOL»2201.)**. 333 
EQBLG=SATOAM 

IF  (SATDAM  ,LE.  DIAHAX)  60  TO  21 
SATOAH=OIAHAX 

£QBLG=EQBV CL*2201 . /(S ATO AM*SATOAM) 
SATINX=(SATHT*SATDAH*SATCAM/8.) 

SATIN Y=(SATHT/ 12. )*(.75^SATDAM*SATOAM+£QBLG»EQBLG) 

SATINZ=SATINX 

GO  TO  100 

HERE  IF  A SPHERE 
SATDAM=(EQBVOL*3300.9) •♦.333 
SATINX=. 1»SATWT*SATDAM*SATDAM 
SATINY=SATINX 
SATINZ=SATINX 

IF  SATDAM  TOO  BIG  STOP  PROGRAM 
IF  (SATOAH  .GT.  DIAHAX)  I£RR=1 
IF  (lERR  .6T.  0)  RETURN 
GO  TO  100 

SETS  VALUES  NEEDED  BY  S AND  C 


IF  (NCCNF(l)  .NE. 

XJ  = SATINX 

YJ  = SATINY 

ZJ  = SATINZ 

RJ  = SATINX 

0X=.5*SATDAM/12. 

GO  TO  200 

IF  (NCONF(l)  .NE. 

XJ=SATINX 

YJ=SATINY 

ZJ=SATINZ 

D= SATDAM 

CZ=.5*SATDAM 


GO  TO 


NASA 

259 

011275 

26 

010675 

a 

010675 

9 

010675 

10 

010675 

11 

010675 

12 

010  675 

13 

NASA 

260 

NASA 

261 

NASA 

262 

NASA 

263 

NASA 

264 

NASA 

265 

NASA 

266 

NASA 

267 

NASA 

266 

NASA 

269 

NASA 

270 

NASA 

271 

NASA 

272 

NASA 

273 

NASA 

274 

NASA 

275 

NASA 

276 

NASA 

277 

NASA 

276 

NASA 

279 

NASA 

280 

NASA 

261 

NASA 

282 

NASA 

283 

NASA 

284 

NASA 

265 

NASA 

266 

NASA 

287 

NASA 

288 

NASA 

289 

NASA 

290 

NASA 

291 

NASA 

292 

NASA 

293 

NASA 

294 

NASA 

295 

NASA 

296 

011075 

1 

011075 

2 

011075 

3 

011075 

4 

NASA 

298 

NASA 

299 

NASA 

300 

NASA 

301 

NASA 

302 

NASA 

303 

NASA 

304 

NASA 

305 

OHEGS  = 6» 28318  / TPRlN 
' *^0M£GS 

I|j^HW*LT.&00)  go  to  125 

^22  IF  (NC0NF(6).EQ.2)  GO  TO  2flfl 

TC  'IS*  DT=,5*EQBLG 

^^_‘^CONF(6)  *EQ*  3)  DT=.5»SAT0AM 

OY=0T 
60  TO  200 

gigCONFCl)  ,GT.  5)  GO  TO  200 

VJ=SATINY 

ZJ=SATINZ 

0=SATDAM 

2>  n=EaBci« 

” dt=.5»s/>tdah 

IP^NC0NF(6)  .EQ.  2)  0X=,5*EQ8LG 
OZ=OT 

200  continue 

RETURN 

END 


REGISTER  ALLOCATION 
1 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  52 


-j 


BLOCK  DATA 


76/76  OPT=2 


FTN  4.2+383 


QZfZ7/75  21,38,14 


BLXK  DATA 

SETS  ALL  DEFAULT  VALUES 


COMMON 

/USERI/ 

ALPHA, 

ea; 

QMEGR, 

PDCTST, 

PHIFOV, 

THETMX, 

XN, 

ZN 

AX, 

EANT, 

PDOTAV, 

PDOTX, 

PHIRX, 

THOLO, 

XNN, 

AY, 

EPl, 

PCOTRX, 

PDOTY, 

PHIRY, 

TL, 

XNNN, 

AZ, 

K> 

POOTRY, 

PDOTZ, 

PHIRZ, 

TPMIN, 

XNU, 

OPHI 

MANY 

FDOTRZ 

PDOTO 

TACCEL 

TSMALL 

YN 

COMMON 

/USER3/ARRAYN(11, 

TPRFL 

3),  BTRMX, 

NHSEQ, 

OPSMS, 

SCSFL 

COMMON 

/USER4/BHIDTH(2) , 
NADIR, 

FREQ{2), 

NET 

FREQR, 

lOPTCM, 

LINK 

COMMON 

/USERS/ 

EQPF, 

CGE£X(9), 

EM2YCG, 

EELCC(9), 

EM2ZCG, 

EEDVL(9), 

IS80F6, 

EMIYCG, 

NUHEEQ, 

EMIZCG 

-XC6SA3 

COMMON  /USER8/SKDM£(7t3) 
COMMON  /USER9/  CA, 
COMMON  /USERI/  APOGEE, 


IDE BUG, 
MICRO, 


CA, 

APOGEE, 

CE 

COMRAT, 

OIAMAX,  EEQHT{9) , 

EPME, 

EQMINT, 

EQMIXL, 

EQMIYL, 

EQMIZL, 

EQM2HT, 

EQM2XL, 

EQM2YL, 

EQM2ZL, 

FE, 

lAGNCY, 

ISATOR, 

H812SM, 

OPTEMP, 

ORBINC, 

PERIGE, 

RELME, 

SPEC(6), 

SPECl, 

T, 

XCGSAl, 

COMMON  /USERC/ 
COMMON  /USERR/ 


FEEPCT, 

IMETYP, 

NFV, 

NQV, 

PI 

ISPT, 

ISUB, 

KEOPT, 

RFIXEO, 

SLBMX 

ACSSN, 

ACSMP, 

ALT, 

AREA, 

BATCAP, 

BITRAT(2), 

CLIFE, 

CONVHT, 

ot; 

OX, 

oz. 

EQBLG, 

EQ8SI0, 

FC , 

FF, 

HARNHT, 

HPT, 

HTPIPE, 

HTPT, 

HTRPR8, 

HTRPHRi 

IBTLOC, 

LHBOO, 

NC, 

0HE6S, 

PASSTR, 

PJ» 

PL, 

PLMIK, 

POCNWT, 

RADA, 

RAOAE, 

RAT, 

RJ, 

SABOLG, 

SATLG, 

SATTHT, 

SATHT, 

SATXCG, 

SATYCG, 

SATZCG, 

SAIXL, 

SAIYL, 

SAIZL, 

SIDE, 

SYSLB, 

THCMHT, 

THRUST(Z), 

TI, 

TNKWT, 

TPRIM, 

V8, 

VCHP, 

VOL, 

NATE, 

HB, 

H8T, 

WT, 

XJi 

XNZERO, 

YJ, 

ZJ 

DATA  DPHI,FE,TSMALL,XNU,PCOTO,T/.25,4.1,100.,3,,1.,24./ 

DATA  PHIRX,PHIRY,PHIRZ,PDOTX,PDOTY,POOTZ,XN,YN,ZN,POOTRX,POOTRY, 
♦POOTRZ/3*.75,6*l.,3*. 012/ 

DATA  OMEGS,OMEGR,PJ,XNN,K,MANV  /I. 5708, 1. Elfl ,7 5. , 1. ElO ,1, 1/ 

DATA  EP1,AX,AY,AZ/.0C01,3*.05/ 

DATA  THETMX,TPMIN  /iaO.,10,/ 


-19 


55 

60 

.65 

70 

75 


DATA  EA,EANT.ALPHA,U,TACCEL,)(NNN,THOLg,PQOTAV,POOT-ST,PHIFOl/ 

C4T«’oLi^i/loo6o:/ 

OATA  MICRO, IA6NCY  /0,1/ 

^OATA  aTRPX,SCSFL,TPRFL,OPSMS,ARRAYN,NHSEQ/1.02A£6,6»fl,,E«i06., 

OATA  lUOLT.OPTiSpUPMr/otlB’.Ulo:}^^ 

DATA  lOPTCM.UNK,  FREQ,  NET,  NADIR,  FREQR,COMRAT,BWIDTH 
V.,y0Aii2«2250o,2»0,ie0  e,,1000 . ,2*-l .ElO/  ' " 

♦ ife?»”®1^2SH;EQHixL,£QAlYL,£6MlZL,EQM2XL,EQH2Yt  /^.95,1, 

„DATA  CA,CE/1D.*5./ 

,^0*TA^EQMiHT,eQM2HT,OIAMAX,APOGEE,PERIGE,MICRO/2*435«,120.  ,2*50fl», 

*°f^*Knnnn^*5^i»§°I^t®S^J^5?^»P^P»SPECl,ISUa,RELME  / 1, 

DATA  NFV,N6v,XMER,XMlu,FEEPCT,iMETYP,PI  /A, 1,0 . , 0. , fl. 0 7, 2,1./ 


NASA 

355 

010975 

8 

NASA  , 

357 

022675 

5 

032475. 

• 3. 

032475 

^ 4 

021975 

itA  3 

011475 

10 

032475 

5 

121674 

145 

011675 

24 

NASA 

365 

011675 

25 

NASA 

367 

0219  75 

4 

NASA 

369 

NASA 

370 

021975 

5 

021975 

6 

011675 

26 

021975 

7 

1211-74 

1 

NASA 

375 

sD 


SUBROUTINE  COSTS 

76/76 

OPT=2 

FTN  4.24383  03/27/75 

21.38.15 

SUBROUTINE  COSTS  (NCQNF, 

NEQUIP) 

NASA 

376 

C **9******9IHf9********tHf'*9*** 

V*V*****>>^***  ******  9************^**  ******* 

NASA 

377 

C *♦  THIS  SUBROUTINE  COLLECTS 

COSTS  FOR 

CATALOG  ITE 

MS  AND  CALCULATES  ** 

NASA 

378 

C ♦*  COSTS 

FOR  CER 

ITEMS  AND 

STORES  THEM  FOR  OUTPUT 

TING 

NASA 

379 

5 

C •^^^*^^********>H^f^*******4^>^l^>^*t^l^*V‘^*»^*****^^*^^>H^****l^*^^***J^*l^*‘H^l^lH^***^^*l^>^ 

NASA 

380 

C 

NASA 

381 

COMMON 

/USERC/ 

FEEPCT, 

IMETYP, 

NFV, 

NQV, 

PI 

022575 

192 

C 

022575 

193 

' COMMON 

/USERI/ 

APOGEE, 

CCMRAT, 

DIAMAX,  EEQWT(9), 

EPME, 

022575 

194 

10 

1 

EQMIMT, 

EQMIXL, 

EQMIYL, 

EQHIZL, 

EQM2HT, 

022575 

195 

2 

EQM2XL, 

EQH2YL, 

EQM2ZL, 

XOUHl, 

IA6NCY, 

022575 

196 

3 

I DEBUG, 

ISATQR, 

HB12SH, 

OPTEMP, 

ORBING, 

PERIGE, 

022575 

197 

4 

MICRO, 

RELME, 

SPEC  (6), 

SPECl, 

XOUH2, 

XCGSAl, 

022575 

198 

5 

XMER, 

XMEU 

022575 

199 

15 

C 

022575 

200 

COMMON 

/BTWN/ 

ACSSN, 

ACSHP, 

ALT, 

AREA, 

BATCAP, 

022575 

201 

1 

BITRATC2>, 

CLIFE, 

CONVHT, 

0, 

DT, 

022575 

202 

2 

OZ, 

EQBLG, 

EQSSIO, 

022575 

203 

3 

FC, 

FF, 

HARNWT, 

HPT, 

HTPIPE, 

022575 

204 

20 

4 

HTPT, 

HTRFRB, 

HTRPHR, 

IBTLOC, 

022575 

205 

5 

LHBOD, 

NC, 

OMEGS, 

PASSTR, 

PJ, 

022575 

206 

6 

PLMIK, 

POCNHT, 

RAO  A, 

RAOAE, 

022575 

2Q7 

7 

RAT, 

RJ, 

SA80L6, 

SATLG, 

SATTMT, 

022575 

208 

6 

SATHT, 

SATXCG, 

SATYCG, 

SATZCG, 

SAIXL, 

022575 

209 

sO 

r 

25 

9 

SAITL, 

SAIZL, 

SIDE, 

SYSLB, 

THCMWT, 

022575 

210 

N 

A 

THRUST(2), 

TI, 

TNKHT, 

TPRIM, 

VB, 

022575 

211 

o 

0 

VCHP, 

VOL, 

MATE, 

MB, 

HBT, 

022575 

212 

C 

HT, 

XJ, 

XNZERO, 

YJ, 

ZJ 

022575 

213 

c 

022575 

214 

30 

COMMON 

/CHOSE/ 

COST <5 

,60),  1 

DPIA(11,64)), 

ICHOSE(eO), 

022575 

215 

1 

NCHOSE(60), 

REL  ( 6,60), 

SK0<7,60> , 

022575 

216 

2 

THM(4, 

60) 

022575 

217 

C 

022575 

218 

COMMON/PRTCOM/ 

AGCRCY, 

AM, 

AN, 

8F, 

- as. 

022575 

219 

.35 

1 

CDPI(7.2), 

GISTAR, 

CTOT, 

DOTE, 

DE, 

022575 

220 

2 

driht; 

EOBSTR, 

FEEINV, 

FEEOPS, 

PEER, 

022576 

221 

3 

GSE, 

IREL, 

ITRUNC, 

MMDOLO, 

NAME  (3,60), 

022575 

222 

. 4 

OPS, 

PAYINV, 

PAYQUL, 

PAYR, 

PE, 

022575 

223 

5 

PMP, 

PMR, 

P0HER(6) , 

PU, 

PKR(60), 

0 22  575 

224 

40 

6 

QCU, 

OCR, 

ROLO(60I, 

SABMHT, 

SATADP, 

0 22575 

225 

7 

SATINV, 

SATR, 

SEIP, 

SEIR, 

SKTAU(6), 

022575 

226 

6 

SSREL(6), 

SUBE  17), 

SUBT<7),  SU8UE(7), 

SUBUP(7), 

022575 

227 

9 

TA, 

TAU(6,6), 

TB, 

TC, 

TE, 

022575 

228 

A 

TF, 

TOOLR, 

TOOLU, 

TOTOPS, 

TRUNC, 

022575 

229 

45 

B 

TS, 

TTT, 

V0LUME(6) , 

VQL(60) , 

H£IGHT<6) , 

0 22575 

230 

C 

XLTOT, 

XMEH, 

XMEINV, 

XMEL, 

XMEVL, 

022575 

231 

0 

XMEH, 

XMEHT, 

XVEST 

022575 

232 

DU^NSION 

RE(7),RT(7) ,RP(7) .BEC7) ,BT  (7) cBP (7 ) , 

NASA 

397 

1 

X<7).FP<7) 

,FT<7)  ,FE(7) ,NCONF(7), 

NE0UIP(5), 

NASA 

398 

50 

2 C0MPR(&0)  .C0MPU(6a).SUBR(7). 

111974 

17 

3 SUaU(7) *COMP5 

E(60) ,COMP5P(60) . 

111974 

18 

4 

SU05P<7) ,SUB5E(7),MEQUIP(5> 

NASA 

401 

C 

NASA 

402 

DATA 

NASA 

403 

9-21 


55 


60 

65 

70 

75 

80 

65 

90 

95 

100 

105 

110 


SEIR  = 0. 
OCR  = 0, 

PHR  = 0. 
SUMTDE  = 0. 
TOOLR  = 0. 
SEIP  = 0. 
QCU  = fl« 

PMP  = 0. 
SUMPE  = 0. 
TOTSUM  = 0. 
SATR  = 0. 
SATINV  = 0. 
XHEINW  0. 
PAYR  = 0. 
PAYINV  =0, 
PAYQUL  = 0. 
GSE  =0. 

XL TOT  = 0. 
CTOT  = 0. 
PEER  = 0. 
FEEINVi  0. 
DOTE  = 0. 
XVEST  = fl. 
OPS  = 0. 
D£  = 0. 

TE  = 0. 

PE  = 0. 

PU  =:  0. 
SYSR=0. 
SVSU*0. 
Q5=0. 

P5P=0. 
P5E=0. 
IBTFRS=1 
ITHRST=1 
00  1 1=1,7 
SUfl5P(I)=0. 
SU05E<I)=O. 
SUBEII)=  0, 
SU9T(I>=  0. 
SUBR(I)=  0. 
SUeUEtI)=0. 
SUBUP{I>=0. 
SUBU(I)  =0. 


/7«1.7, 

'•157.. -Jllx  500,. 620,.  £72,.  393,.  587/, 
/«5p  G,  • 5 C|,  0 IPP  f*6|0y«675f*<»16,*301/y 
/.4^4, .745,. 566, .738,. 668, .263,, 182/, 

/x  • 0^ 


101774 

101774 

101774 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

121174 

NASA 

NAS'A 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

022  675 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA  . 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


115 

120 

125 

130 

135 

l<f0 

145 

150 

155 

160 

165 


C 

c 

c 

c 

c 

c 

c 


CO  2 1=1,60 
COMP5ECI>=D. 

COMP5P(I)=0. 

^COMPU(I)=0  . 

2 COMPR(I)=C. 

«E0UIP(1)=NEQUIP(1J 
DO  3 J=2,5 

3 MEQUIP(J)=MEQUIP( J-ll *NEQUIP<J) 
X(l)  = HATE 

X(2)  = HARNHT 
X(3)  = THCMHT 
X<4)  = CONVHT 
X(5)  = WE1GHT(2) 

X(6)  = PASSTfi 
X(7)  = POCNHT 
PRINT  9G04t(X(I),I=l,7> 

9004  FORMAT  (10E11.4) 

1=1 
J=1 


100  IF  (NCHOS£(I>.EQ.O)  GO  TO  200 


COMPUTATIONS  FOR  CATALOG  ITEMS 


IF  (I  .GT.  MEQUIF(J)I  J=J41 
ICHS  = ICHOSE(I)/100 
XFP  = 1, 

XFE  = 1. 

XFT  = 1. 

Cl=  COSTd.I) 

Q =NQV  4NFV 

QP  = Q * NCHOSE(I) 

Q5=5.»NCHOSE(I) 

P5  = COST  (3,1) 

QREF  = C0ST(4,I) 

FQ  = NCHOSE(I)/QREF 
IF  (FQ.LT.l.)  FQ  = 1. 

FRE  = 0.8875  + fl.ll25*FQ 
FRT  =0.3  + 0.7+FQ 

GO  TO  (110,120, 130,140,150), J 
SET  SCALE  FACTORS  FOR  S a Q CATALOG  ITEMS 
GO  TO  (170,170,111,170,170,170,170,115,111,170,170, 

115,170,170,170,170,170,115,170,170,170,170) , ICHS 
(NCONF(l)  .LE.  1)  GO  TO  170 


110 

111 

112 

115 


IF 

IF  (NCCNF(5).,EC.i.()R.NC0NF(5)  .EQ.3.0R.NC0NF(5)  .EQ.5)G0  TO  112 
XFP  =3.3 
GO  TO  170 
XFP  = 7.5 
GO  TO  170 

IF  (NCONF(l)  ,LE.  1)  GO  TO  170 

IF  (NC0NF(5).EQ.1.0R.NC0NF<5).EQ.3.'OR..NCCNF(5)  .EQ.5)GO.TO  117 
XFE  = 13.5 
XFT  =2.4 


NASA 

461 

NASA 

462 

NASA 

463 

NASA 

454 

NASA 

465 

NASA 

466 

NASA 

467 

NASA 

468 

NASA 

469 

NASA 

470 

NASA 

471 

NASA 

472 

120474 

2 

NASA 

474 

NASA 

475 

101874 

1 

101874 

2 

NASA 

476 

NASA 

477 

NASA 

478 

NASA 

479 

NASA 

480 

NASA 

481 

NASA 

482 

NASA 

483 

NASA 

484 

NASA 

485 

NASA 

486 

NASA 

487 

NASA 

488 

NASA 

489 

NASA 

490 

NASA 

491 

NASA 

492 

NASA 

493 

NASA 

494 

NASA 

495 

NASA 

496 

NASA 

497 

NASA 

498 

NASA 

499 

NASA 

500 

NASA 

501 

NASA 

502 

NASA 

503 

NASA 

504 

NASA 

505 

NASA  . 

506 

NASA 

507 

NASA 

508 

NASA 

509 

NASA 

510 

NASA 

511 

NASA 

512 

NASA 

513 

NASA 

514 

NASA 

515 

170 

175 

160 

105 

190 

195 


vC 

N 

(» 


200 

205 

210 

215 

220 

225 


C 

C 


C 

C 

C 


XFP  =2.2 
GO  TO  170 

117  XFE  = 13.6 
XFT  = 2.4 
XFP  =5.0 
GO  TO  170 

^SET  SCALE  FACTORS  FOR  AUXPRO  CATALOG  ITEMS 
120_6O  TO  (121,190,160,170,180.180,180,121,180,180,180,180 
* 121 , 1 £0 , 1 8 0 , 1 8 0 , 1 6 0 I , ICKS 

121  IF  (ITHRST  .GT.  1)  GO  TO  122 
ITHRST  = ITHRST  +1 

IF  (THRUST(l).LT.REL(l,in  XFT  = 0.25 
GO  TO  170 

122  IF  (THRUST (2) .LT.RELIl,!) > XFT  = 0.25 
Go  TO  l70 

SET  SCALE  FACTORS  FOR  DPI  CATALOG  ITEMS 

130  GO  TO  (170,131) ,ICHS 

131  60  TO  (136,132,132,134), IMETYP 

132  XFT  = 1. 9 
XFP  =3.0 
60  TO  136 

134  XFT  =1.9 
XFP  =4.5 


136  IF  (IBTFRS.GT.l)  GO  TO  138 
I8TFRS  = IBTFRS  + 1 
IF  (SITRATd)  .GT.  100000.1 
GO  TO  170 


C 

C 

C 


C 

C 

C 


138  IF  (BITRAT(2) 
GO  TO  170 


.GT.  100000.) 


XFE  = 2.7 
XFE  = 2.7 


C 

C 

C 

C 


SET  SCALE  FACTORS  FOR  COMM  CATALOG  FACTORS 
(NONE  NEEDED  AT  THIS  TIME) 

140  IF  (ICHS.EQ.7)  60  TO  180 
60  TO  170 

SET  SCALE  FACTORS  FOR  E.P.  CATALOG  ITEMS 

150  GO  TO  (180, 151, 180, 180, 160, 180, 180, 180, 180, 180, 160, 180), ICHS 

151  IF  (BATCAP  .LE.  15.)  GO  TO  155 

IF  (NC0NF(5).EQ.1.0R.NC0NF(5).EQ,3.0R.NC0NF(5) .EQ.5) XFE=2.3645 

155  IF  (NC0NF(5),EQ,2.OR.NCONF(5).EQ,4.OR.NCCNF<5) .EQ.61G0  TO  170 
XFT  = 6. 

XFP  = 4. 

GO  TO  170 


**  COMPUTE  DESIGN  ENGINEERING  COST,  (OE  OR  COMPE) 
170  COST(l,I)=COST(l,I)*PIfFRE*iOOO.^XFE 
**  COMPUTE  TEST  AND  EVALUATION  COST,  (TE  OR  COMPT) 


NASA 

516 

NASA 

517 

NASA 

518 

NASA 

519 

NASA 

520 

NASA 

521 

NASA 

522 

NASA 

523 

NASA 

524 

NASA 

525 

NASA 

526 

NASA 

527 

NASA 

528 

NASA 

529 

NASA 

530 

NASA 

531 

NASA 

532 

NASA 

533 

NASA 

534 

NASA 

5-35 

NASA 

536 

121174 

3 

NASA 

538 

NASA 

539 

NASA 

540 

NASA 

541 

NASA 

542 

NASA 

543 

NASA 

544 

NASA 

545 

NASA 

546 

NASA 

547 

NASA 

548 

NASA 

549 

NASA. 

550 

NASA 

551 

NASA 

552 

NASA 

553 

111874 

32 

111874 

33 

NASA 

565 

NASA 

556 

NASA 

557 

NASA 

558 

NASA 

559 

NASA- 

560 

NASA 

561 

NASA 

562 

NASA 

563 

NASA 

564 

NASA 

565 

NASA 

566 

NASA 

567 

NASA 

568 

NASA 

569 

NASA 

570 

NASA 

571 

230 

235 

240 

245 

2 50 

'X) 

I 

ro 

265 

260 

265 

270 

275 

260 


C 

C 

C 

C 

C 


C 

c 

c 

c 

c 

c 


CpST{2,I)=COST(2,I)*PI*FRT*1000.*XFT 
**  SUa-TOTAL  ENGINEERING  COSTS 

COMP«a>=  COST(l,I)  ♦ C0ST(2,I) 

;;  agn^^plif^rissj!  aa"/xi.io“S55  .™?f*."Sfjr7.xFP 

rn5T/Z^Tf°-^ri'l#nD**^^5c^«’^F2Sy£l|5^^^NGINEERING  tPE.OR  CCHPUE) 
LuST(4«I)  = Cl*  {QP**, <f  85-1, ) *pT^»PPF*innn .♦  XFF/0 

S22SyJ!x9°»<P9NENT  CUH  AVG  5 PROOrENGrCOST 

C0MP5ECI)  = 20fl»  ♦ Cl  ♦ (05**0«485  - 1«0>  * FRE  * PI  * XFE 

COMPU(I)g=  C0ST(3,II  + C0£T(4,i)  ^ 

180  CONTINUE 

DO  183  JJJ=1,5 
183  COST(JJJ,I)  = 0.0 

185  CONTINUE 

IF  (lOEEUG.EQ.DPRINT  9000*  (COST  ( JJ  .I>  , J J=1 , ii)  , COHPR  (I)  ,CCKPU(I)  , 
_ j ^ ^ C0MP5P(IJ,C0HP5E(I) 

60  TO  100 


- a?nsvissisjas'^fg.ii;ar.if“  ""  ^stihating 

200  H = 0 

J = I + 6 
ISAVE  = I 
PRINT  9993 
FORHAT(//> 

DO  300  K = I,J 
R = M + 1 


9993 

C 


C 

C 

C 


C 

C 


FE(M)  = 1. 

FT(M)  = 1. 

FP(M)  = 1, 

GO  TO  (205,210,215,220,225,230 ,235J,M 
SET  SOLAR  ARRAY  CER  FACTORS 
205  GO^TO  j207g207,206,206»,IHETYP 
FT(H)  = 4I0 

If  (NC0NF(5) .EC.2.0R.NCONF(5) .EQ.4.0R.KC0NF(5) .EG,6)G0  TO  270 

rPlni=2.0 

GO  TO  270 

MIRING  HARNESS  CER  FACTORS 
210  F£(N)=5.0 
FT  (M)  =5.0 
FP(H)=3*C 
GO  TO  270 


NASA 

572 

NASA 

573 

NASA 

574 

NASA 

575 

NASA 

576 

NASA 

577 

NASA 

578 

NASA 

579 

NASA 

580 

NASA 

581 

NASA 

582 

NASA 

583 

101874 

3 

101874 

4 

101874 

5 

101874 

6 

101674 

7 

101874 

a 

012775 

12 

012775 

13 

101574 

13 

NASA 

587 

NASA 

588 

NASA 

589 

NASA 

590 

NASA 

591 

NASA 

592 

NASA 

593 

NASA 

594 

NASA 

595 

NASA 

596 

NASA 

597 

NASA 

598 

NASA 

599 

NASA 

60.0 

NASA 

601 

NASA 

602 

NASA 

603 

NASA 

604 

NASA 

605 

NASA 

606 

NASA 

607 

NASA 

608 

NASA 

609 

121174 

4 

NASA 

612 

NASA 

613 

NASA 

614 

NASA 

617 

120474 

3 

NASA 

618 

NASA 

619 

NASA 

620 

NASA 

621 

NASA 

622 

NASA 

623 

NASA 

624 

2£5 
290 
2 95 
300 
305 
f 310 

[V 

315 

320 

325 

330 

335 


C 

C 


C 

C 

C 

C 

C 

C 

C 


c 

c 

c 


SET  THERHAL  CEfi  FACTORS  , 

215  IF  <NCQNF(1>,NE,1>.  FE(M)=2,0 

If,  iyC0NF(5)  .EQ,1.0R«NC0NFC5»  ,EQ.3.0R.NC0NF<5)  .EQ.5)FP(M)=2,0 

bU  I □ c7 H ’ 

SET  POWER  CONVERTERS  CER  FACTORS 
(NONE  NEEDED  AT  THIS  TIME) 

220  GO  TO  270 

SET  PROPELLANT  FEED  SYSTEM  CER  FACTORS 

225  IF  (NCCNF(l).GT.l)  GO  TO  226 
RE(H)=129200. 

BE(M)  = ,272 
FE  (H)=0,507 
FTfM)=0,325 
FP(M)  =0.615 
GO  TO  270 

226  RE(M)=545640, 

BE  (H)  =0.222 
FE(M)=0.268 
FT(H).=fl.619 
FP(H>  =0.840 
GO  TO  270 

SET  STRUCTURES  CER  FACTORS 

230  STRF=0.5054*SATWT**(-0 Jl68) 

RATIO  = PASSTR/SATHT 

IF (STRF.GE. RATIO) STF=l.+(STRF-RATIO)/STRF 
IF(STRF.LT.RATIO)STF=l.- CRATIO-STRF) /RATIO 

PRINT  9001, STF 

9001  F0RHAT(1X,5HSTF  =,E11,4)' 

IF  (NC0NF(5).EQ.2.OR.NC0NF(5).EQ.4.0R.N,C0NF(5)  .EG. 6)60  TO  231 
FE (H) =2. 5 
FT(M)  = 3.0 
FP(M)=4.0 

231  F£(M)=FE(M)*STF 
FTCM)=FT(M)»STF 
GO  TO  270 

SET  POWER  CONTROL  EQUIPMENT  CER  FACTORS 

235  IF  (NC0NF(5)  ,EQ.2  .OR.  NCONF  (5)  .EQ.4  .ORi.NCONF  (5 ) . EQ.6)  GO  TO  270 
r c J — 3*2 
FT(M)=3.1 
FP(H)=4.0 
60  TO  270 

270  COMPER  = RECM)  * X(M)«»BE(H)  * FE(H) 

IF  (M.EQil)  COMPER  = (FE  (M) »RE (M)»AREA**BE (M) ) 

^ ^ - (FT  (H)»RT  (M)»X(H)**8T(M)  ) 

DESIGN  ENGINEERING  COSTS  (COMPE  OR  DE) 


C 

C 

C 


NASA 

625 

NASA 

626 

NASA 

627 

NASA 

628 

NASA 

629 

NASA 

. 630 

NASA 

631 

NASA 

632 

NASA 

633 

NASA 

634 

NASA  • 

635 

NASA 

636 

NASA 

637 

NASA 

638 

NASA 

639 

NASA 

640 

NASA 

641 

NASA 

642 

NASA 

643 

NASA 

644 

NASA 

645 

NASA 

646 

NASA 

647 

NASA 

648 

NASA 

649 

NASA 

650 

NASA 

651 

NASA 

652 

NASA 

• 653 

NASA 

654 

120474 

4 

NASA 

656 

NASA 

657 

NASA- 

658 

NASA 

659 

032475 

6 

032475 

7 

N ASA- 

662 

NAS  A 

663 

120474 

5 

NASA 

664 

NASA 

665 

NASA 

666 

NASA 

667 

NASA 

6.68 

NASA 

669, 

NASA 

• 670 

NASA' 

671 

120  474 

6 

120474 

7 

NASA 

675 

NASA 

676 

NASA 

677 

120A74 

8 

NASA 

679 

NASA 

660 

NASA 

681 

340 
345 
350 
355 
3 60 
365 

sO 

I 

O' 

370 

375 

380 

385 

390 

395 


c 

c 


C0ST(1,K>  = COMPER  ♦ SF  * PI 

TEST  + EVALUATION  COSTS  (COMF1  OR  TE) 

IF(M.EQ.5)  X(M)  = ORIWT 

C0ST(2,K)  ^ RT(M)'»X(M»**8T(M>*SP»PI*FT{M) 

SUBTOTAL 

COMPR(K>  = COST(ltK)  + C0ST(2tK> 

UNIT  PRODUCTION  COST 

COST(3,K»  = i:p(M)*X«M)'f*BP(M)»SF*PI*Q«»(-.152)*FP<M)*1.277. 
IF  (H.EQ.l)  C0ST(3,K)  = RF(M)*AREA**8P(M>*SF*PI»Q** (-0.152) 
1 ♦FF{M)*1.277 

UNIT  ENGINEERING  COSTS  ■ 
COSTI4,K)=COMPER*(Q**.A85-1.)»SF*PI/Q 
COMPUTE  COMPONENTCUM  AVG  5 UNIT  PROD.  COST 
C0MP5P(K)  = 0.783  * C0ST(3.K)  * 0*^0.152 
COMPUTE  COMPONENT  CUM  AVG  5 PROD.  ENG  COST 
COHP5E(K)  = 0.2365  • COMPER*SF*PI*FE (M) 


SUBTOTAL  PRODUCTION 
COHPU(K)  = COST(3fK) 

IFdOEBUG.EQ.DPRIKT 


+ C0ST(4,K» 


280 


9000, (C0ST(JJ*K),JJ=1.4),C0MPRCK> ,COMPU(K) * 
^ C0MP5P(K) ,COMPS£(K) 

GO  TO  (280, 280, 281, 280, 262, 283, 280), M 

““  EP  CER  SUB-TOTALING 


JU0E(5)  = 
SUBT(5>  = 
SUBR(5)  = 
SUBUE(5)  = 
SUBUP(5)  = 
SUBU(5)  = 
SUBSET  5)  = 
SUB5P(5)  = 
GO  TO  300 


SUBE(5)  * COST(l^K) 
SU8T(5)  + C0ST(2,K) 
SUBR(5)  + COMPfi(X) 
SUBUE(5)^C0ST(4,K) 
SUBUF(5)+C0ST(3*K) 
SUBU  (5)+  COMPU(K) 


SUB5E(5) 

SUB5P(5) 


COHPSE(K) 

C0MP5P(K) 


281 


SU8£(7)  = SUBE(7)  ♦ COST(l,K) 
SUBT(7)  = SUBT(7)  + C0ST(2,K) 
SUBR(n  = SU8R(7)  + CGMPR(K) 
SU8UE(7)=  SUaUE(7)+C0ST(4,K) 
SU8UP(7)=  SUBUP(7)+C0ST(3,.K) 
iU8U(7)  = SUBU (7)  + COMPL(K) 
SUB5£(7)  = SU85E(7) 


**  THERMAL  CER  SUB-TOTAL 


SUB5P(7)  = SU85P(7) 
GO  TO  300 


+ . 
♦ 


C0MP5E(K) 

COMFSP(K) 


282 


283 


SU8E(2)  = 
SUBT(2)  = 
SUBR(2)  = 
SU8UE(2)  = 
SU8UP(2)  = 
SU8U(2)  = 
SU85£(2)  = 
SU85P(2)  = 
GO  TO  300 

SUBE(6)  = 
SUBT(6)  = 
SUBR(6)  = 


COST(l,K) 
COST.(2,K) 
COMPR  (K) 


SU8E(2)  + 

SUBT(2)  + 

SUBR(2)  + 
SUBUE(2)^C0ST(4,K) 
SUBUP(2)+CaST(3,K) 
SUBU  (2)4-  COHPU(K) 
SUB5£(2)  * 


♦♦  AUX  PROP  CER  SUB-TOTAL 


SUB5P(2) 


COMPSE(K) 

C0MF5P(K) 


SUBE(6) 

SU0T(6) 

SU8R(6) 


COSTdtK) 
COST(2,K) 
COMPR (K) 


**  STRUCTURE  CER  SUB-TOTAL 


120474 

9 

NASA 

683 

120474 

10 

NASA 

684 

NASA 

685 

NASA 

686 

NASA 

687 

NASA 

688 

NASA 

689 

NASA 

690 

NASA 

691 

1-20  474 

11 

NASA 

693 

NASA 

694 

NASA 

695 

NASA 

696 

NASA 

697 

NASA 

698 

NASA 

699 

NASA 

700 

012775 

14 

012775 

15 

NASA 

703 

NASA 

704 

NASA 

705 

NASA 

.706 

NASA 

707 

112574 

1 

112574 

2 

NASA 

710 

NASA 

711 

NASA 

712 

NASA 

713 

NASA 

714 

NASA 

715 

NASA 

716 

NASA 

717 

112574 

■ 3 

112574 

4 

NASA 

720 

NASA 

721 

NASA 

■722 

NASA 

723 

NASA 

724 

NASA 

725 

NASA 

726 

NASA 

727 

112574 

5 

112674 

6 

NASA 

730 

NASA 

731 

NASA 

732 

NASA 

733 

NASA  - 

734 

NASA 

735 

NASA 

736 

NASA 

737 

400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 


C 

C 

C 

C 

C 


C 

C 

C 


SU8UE(6)  = SUaUE(6»+  C0ST(4»K) 

SU8UPC6)=SU8UP(6)+  C0ST(3U> 

SUBU(6)  = SUBU(6)  + COMpt(K) 

= §Ua5E(6>  + C0MF5E(K> 

SUB5P(61  = SUB5P(6)  ♦ C0HP5P(K) 

300  CONTINUE 

SUM  SUB-TOTAtS  BY  SUBSYSTEMS-  OF  CATALOG  ITEMS 

IJ  = 1 
IK  = 0 

CO  320  J=1.5 
IF  (J.NE.IJ  IJ  = IK  ♦ 1 
IK  = IK  + NEQUIPIJ) 

00  310  I-  IJ.IK 

SUBE  (J)  = SOBE  <J)  + COST(l,I) 

SUBT  (J)  = SUBT  <J»  + COST(2jII 
SU8R  (J)  = SUBR  (J)  *■  COMPR(f) 

SUBUECJ)  = SUeUE(J)  + COST(4tI) 

SUBUP(J)  = SUBUP(J)  + C0ST(3tI) 

i liiiyEf:!.' : }, 

310 

320  CONTINUE 

CO  9999  1^17 

IF(IDE8UG,£Q,i>PRlNT  9000 .SUBE <1 ), SU8T( II ,SU6R(I) ,SU9UE(I)« 
CONTI  NUE  ‘ ' SU85pU) 

FORMAT  (SdXyFll.OI) 


9999 

9000 


•*  TOTAL  COSTS  FOR  BASIC  SPACECRAFT 


DO  400  I = 
OE  = ■ 

TE  = 

SYSR 
PE  = 

PU  = 


SU&E  (I) 


C 

C 

C 


C 

C 

C 


400 


DE  + 

TE  + SUBT ( I) 

= SYSR  + SUBR(I) 

PE  + SUBUE(I) 

PU  + suaupdi 

SYSU  = SYSU  + SUBUd) 

P5E  = P5E  ♦ SUBSEd) 

P5P  = PSP  + SUBSPd) 

CONTINUE 

COMPUTE  TOOLING  AND  TEST  EQUIPMENT 

TOOLR  = 0. 

TOO.U  = 0. 

TOOLS  = 0, 

COMPUTE  QUALITY  CONTROL 
OCR  = .015*DE  + ,14*TE 


112574 

112574 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

112:574 

112574 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

012775 

012775 

012775 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


7 

3 

740 

741 

742 

743 

744 

745 

746 

747 
746 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 
9 

,10 

761 

762 

763 

764 

765 

766 

767 
16 
17 
16 

770 

771 

772 
776 

779 

780 

781 
762 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 


455 

QCU  = .015*PE  + .14*PU 

NASA 

799 

QC5  = 0.015*P5E  + 0.14*P5P 

NASA 

800 

C 

NASA 

801 

C 

COHPUTE  SYSTEMS  ENGINEERING  ANC  INTEGRATION 

NASA 

802 

s , 

C 

NASA 

803 

SEIR  = •32*0E  ♦ .27^>TE 

NASA 

804 

■46fl 

SEIP  = .32*PE  + ,22*PU 

NASA 

805 

SEI5  = p.32»P5E  ♦ 0;22*P5P  . ' 

NASA 

806 

C 

NASA 

807 

C 

COMPUTE  PROGRAM  MANAGEMENT 

NASA 

808 

c 

FMR  = 0.19*OE  + 0.02*TE 

NASA 

609 

465 

NASA 

810 

PMP  = 0.19*PE  + o.oa^pu 

NASA 

811 

« 

PH5  = 0.19*P5E  + 0.02*P5P 

NASA 

812 

c 

NASA 

813 

c 

TOTAL  SPACE  CRAFT  COSTS 

NASA 

814 

470 

c 

NASA 

815 

••s 

SATR  = SVSR  ♦ TOCLR  + OCR  + SEIR  + PMR 

NASA 

816 

SATU  = SYSU  + TOOLU  + QCU  + SEIP  + PMP 

NASA 

817 

" 

c 

NASA 

818 

' 475 

c 

TOTAL  FAYLOAC  COSTS 

NASA 

819 

c 

NASA 

820 

SATINV  =NFV  * SATU 

NASA 

821 

XMEINV  =NFW  • XMEU 

NASA 

822 

PAYR  = SATR  ♦ XMER 

NASA 

823 

PAYQUL  =NQV  * (SATU+XMEU) 

NASA 

824 

nO 

1 

460 

PAYINV  = SATINV  + XMEINV 

NASA 

825 

c 

NASA 

826 

CsJ 

c 

CUMULATIVE  AVERAGE  COST  FOR  FIVE(5)  SPACECRAFT 

NASA 

827 

00 

c 

NASA 

828 

SAT5  = P5E  ♦ P5P  + TOOLS  4 QC5  + SEI5  + 1 

PM5 

NASA 

829 

4 65 

PRINT  9002tSAT5 

032475 

8 

9002 

F0RMAT(1X,6HSAT5  =,E11.4) 

032475 

" 9 

C 

NASA 

830 

C 

COMPUTE  GROUND  SUPPORT  EQUIPMENT . COST  tOEVEL.  AND  PROD.) 

NASA 

. 831 

C 

NASA 

832 

490 

IF  CIMETYP.NE.l)  GO  TO  420 

NASA 

833 

C 

**  SET 

FACTOR 

FOR  COMSAT 

NASA 

834 

FGSE  =0.409 

011675 

27 

GO  TO  440 

NASA 

836 

C 

NASA 

837 

495 

420 

IF  (NC0NF(5).EQ.l  .OR.  NCONF (5 ) . EQ. 3 .OR 

. NC0NF(5) .EQ.5)  60 

TO  430 

121174 

, 5 

c 

**  SET 

FACTOR 

FOR  GENERAL 

NASA 

840 

FGSE  -1.0 

NASA 

841 

GO  TO  440 

NASA 

842 

c 

SET 

FACTOR 

FOR  GENERAL 

PACOLE 

NASA 

843 

500 

430 

FGSE  = 2.121 

NASA 

644 

c 

NASA 

845 

440 

GSE  = 49.72*  OE  **.669*FGS£ 

NASA 

846 

c 

NASA 

847 

c 

««« 

COMPUTE  LAUNCH  COSTS 

NASA 

848 

505 

c 

NASA 

849 

c 

NASA 

850 

c 

COMPUTE  UNIT  LAUNCH  COST 

NASA 

851 

c 

* 

XLN  = 31.0  * SAT5  **0.S88 

NASA 

852 

021875 

1 

510 

c 

NASA 

854 

515 

520 

525 

530 


C 

C 


***  COMPUTE  TOTAL  LAUNCH  COSTS 
)<LTOT  ==  tifV  * XLN 

COMPUTE  TOTALS 

FEK  = FEEPCT  ^ (SATR  ♦ (NOtf^SATU) 
ODTC  = PAVR  * PAYQUL  + GSE  + PEER 

FEEINV  = FEEPCT  * SATIKV 
XVEST  = PAYINV  + FEEINV 

FEEOPS  = XLTOT  • FEEPCT 
OPS  = XLTOT  + FEEOPS 

RETURN 

END 


*®T0TAL  ODT+E  COST 
GSE) 

♦♦TOTAL  INVESTMENT  COST 
♦♦TOTAL  OPERATIONS  COST 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


855 

656 

857 

858 

859 

860 
861 
862 
863 
664 

865 

866 

867 

868 
869 
670 

871 

872 

873 

874 

875 

876 


sD 

I 

vO 


SUBROUTINE  PRNT 


76/76  0PT=2 


FTN  4.2+383 


03/27/75  21.38.18 


SUBROUTINE  PRNT  < lERR  , NEQUIP, NACCE 

THIS  IS  THE  OUTPUT  SUBROUINE  WHICH 
OUTPUT  OF  ANY  ACCEPTABLE  OESIGK 

COHMON  /USERI/  APOGEE,  COMRAT, 

k eqmixl; 


I DEBUG, 
MICRO, 


HTWia  CC, 

EQMIHT, 

EQH2XL, 

ISATOR, 

RELME, 

VM  CO 


^ nj.uKU,  KtLnt,  5P 

COMMON  /USERP/  IPRIN ITLE 


uun  r<A  I , 

EQMIXL, 

EQM2YL, 

MB12SH, 

SPEC(6», 

XHEU 

ri  r* 


COMMON  /BTHN/  ACSSN, 

1 BITRAT(2), 

; OX, 

* FG, 

♦ HTPT, 

; LMBOp; 

2 PL, 

[ RAT, 

SATHT, 

SAIYL, 

THRUSTC2I, 

VCHP, 

; ht; 


^COMMON  /CHOSE/ 


I Till  « f 1 

COHMON/PRTCOM/  ACCRCY, 

1 C0PI(7,2), 

Z ORIWT, 

3 GSE,- 


ACSHP, 

CLIFE, 

OY. 

FF, 

HTRFRB, 

NC, 

FLMIN, 

. RJ, 

SATXCG, 

SAIZL, 

TI, 

VOL, 

X4, 


OIAMAX, 

EQMIYL, 

EQM2ZL, 

OPTEMP, 

SPECl, 


ALT, 
CONVHT, 
OZ, 
HARNHT, 
HTRPHR, 
OMEGS, 
POCNWT, 
SABOLG, 
SATYCG, 
SIDE, 
TNKHT, 
. WATE, 
XNZERO, 


EEQWT<9», 

EQMIZL, 

FE 

ORBINCJ 

XDUMl, 


AREA, 

■ u, 

EQ8LG, 

HPT, 

PASSTR, 

RADA, 

SATLG, 

SATZCG, 

SYSLB, 

TPRIM, 

-HB, 


COST(5,60),  DPIA(il,60), 
NCH0SE(6G),  REL  < 6,60), 
THM(4,e0) 


tKME, 

EQM2HT, 

lAGNCY, 

perige; 

XCGSAl, 


BATCAP, 

OT, 

EQ8SIO, 

HTPIPE, 

IBTLOC, 

PJ, 

RAOAE, 

SATTMT, 

saixl; 

THCMHT, 

VB, 

HBT, 

ZJ 


YJ, 

ICHOSECeU  , 
SKO(7,60)^ 


AH, 

CISTAR, 

cnncTD _ 


AN, 

CTOT, 

FEEINV, 

TTOIIMI' _ 


“C  XL  TOT, 

Q XM  £ W 

DIMENSION  IERR(7) ,NEQUIP(5) 
ODCNSION  ITITLE(i3> 

REAL  HMD  OLD 


ORlWT,  eqbstr;  feeinvJ 
GSE,  irel;  itrunc; 
OPS,  PAYINV,  PAYQUL, 
power(6), 

^.,QCP,  QCF,  fiOLD(60), 

SATINV,  SATR,  SEIP, 
SSREL(6),  ,SUBE<p,  SUBT(7), 
TA,  TAU(6,6),  T8, 

TFi,  TOOLR,  TOOLU, 
,TS,  T,V0LUME(6), 

XLTOT,  XMEH,  XMEINV, 

XHEH,  xmewt;  XVEST 

'71  . Kt  Cn  1 1 TD  , R \ . iLK'niiic  Jc.  t 


TFj  ToSlR, 

TS,  T,VO 

XLTOT,  XMEH, 

XMEW,  xmewt! 

NEQUIP(5) ,NC0NF(6) 

, 3 ) 


BF,  BS, 

^ DOTE,  . OE, 
FEEQPS,  . PEER, 
MMO old, name (3,60) 
■ PAYR,  ’pE, 

PU,  PWR(60), 
SABMWT,  • SATAOPJ 

CPTP.  Cl^TAII/Cl' 


PU,  PHKIOU  , , 

SABMWT,  • SATAOpJ 
^ SEIR,  SKTAU(6), 
SUBUEI7),  SU8UPC7), 
TC,  TE, 

TOTOPS,  TRUNC, 

VQL(6fl),WEIGHT(6) , 
XMEL,  , XMEVL, 


) RETURN 
GO  TO  100 


022875 

NASA 

NASA 

NASA 

NASA 

022575 

022575 

0 225.75 

022575 

022575 

022575 

022875 

022875 

022575 

022575 

0 22575 

022575 

022575 

0 22,575 

022575 

022575 

0 22575 

022575 

0 22575 

022,575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022  575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

0 22  575 

NASA 

111974 

NASA 

NASA 

NASA 

012775 

NASA 

NASA 


9-31 


55 

60 

65 

70 


75 


80 

65 


30 

95 

100 

105 

110 


9000  FORHAT(lHl) 

9001  FORNATC/jlX) 

PRINT  9002 

FgRHAT(38X,41H^»  NASA  SYSTEMS  COST/PERFORMANCE  STUOY  *♦) 

PRINT  9001 
PRINT  9010 

9010  FORMAT  (16H  DEFINITIONS  - ~f/iZSH  CONFIGURATIONS  (NCONF) 5X « 

1 36HSTABILI 2ATI  ON  AND  CONTROL  ( NCONF  ( 1)  I , 15X.  31HAUXILIARY  PRoi^UtllO 
2K  (NCCNF(2)»,/.7X,23HNCOKF(l)  = l IS  DUAL  SPlft,2  8X,MHNC0N^^ 

IS  YAW  SPIN.  29X,|6HN^0NF(2  )=2  IS  MON 
5S  BIPROpklilNr iy§yLsi0N,23X,26HNCpNF(2)=3 
65HCOMHUNICATIO 

— jk  «-kj  Hnu  Liufini.i,rifs«#B^A« 

8FDATA  PROCESSING  AND  INSTRUMENTATION  (NCgNFi3))*7Xj42HNCCNf(4)l  = 5 I 


MONOP 
I 


- --  rui^ruit  rrcuot:>3UKtX£X«<faHNt;ONr  ( 4 

^LINK-COMMON  ANT  + DOWNLINK,/,  5X,27HEtECTftlCAL  POWER  (NCO 
IS  L'NIFIEO  LINK-SEPARATE  ANT  + DOWNLINK,/ 
if  IS  SHUNT  REGULATION  - PADDLE  MTO.  ,5X  ,25HVEHICL§ 
FSIZING  (NC0NF(6) ) ,/,7X,42HNCGNF(5)=2  IS  SHUNT  REGULill^N  - 0ODY  MT 
G0.,9X,2|HNCpNF(6>  = risWlN0ER,/,7X,44HMF(5)=3  IS  SH^  ToiSCH 

A^^8l7^^*''C0NF{6)=2  IS  BOX  ,/,7X,  42HNC0NF(5)=4  IS  S 
MTO.,9X,20HNCONF(6I=3  IS  SPHERE) 

^“^^lELIABklTYpj7X?S2UcONFC5f=i^ll^iERI^^  LOAD  REG^°-‘‘80CY°Hf D?J 9X?4 
l5"§a^fESgl?lgS'‘£‘5“!f58SL=S?S^lHr''"'-"  SYSTE»,/.5eX,«HfiE0uft0ASc 

' PRINT  90  01 

PRINT  9012 

9012  FORMAT  (18H  MESSAGES  C lERR) ,/,5X,25HSTABILIZATI0N  AND  CONTROL, 26 

P«9fy‘-SlON,/,7^,59HiERR  = 0 MEANS  NO  MESSAGES! 22 

2X.27HIERR  = 0 MEANS  NC  MESSAG ES  ,/,7 X ,49HIERR  = 1 MEANS  MAX  ALL 

3pWABL£  SYS.  ERROR  UNSAT.  ,2X,50HI£RR  = 1 MEANS  CYCLE  LIFE  OF  ATTIT 

»/;»7X,42HiERfi  = IX  MEANS  MAX  RATE  ERROR  TOO  SMALL 
5,25X,22HTHRUSTERS  IS  TOO  SHORT./ »7X, 42HIERR  = IXX  MEANS  3-AXIS  WH 

SeaSs  CYCLE  LIFE  OF  TRANSLATIONAL 

7THRUSTER,/,7X, 42FIERR  = IXXX  MEANS  OBL  GIMB.CMGS  ACCtPTABLE,25X,12 
8HIS  TOO  SHORT,/, 5X,35HDATA  PROCESSING  AND  INSTRUMENTATION, iIx,4IhI 
9ERR  = 11  MEANS  CYCLE  LIVES  OF  EOTH  THRUSTERS  ARE,/,7X,3GHiERR  = 

A 0 MtANS  NO  MESSAGES ,37X,9HTC0  SHORT,/ ,7X , 31HIERR ^ = * 1 MEANS  M 

BLX  REQUIRED, 18X.7HTHE^MALt/,7X,41HIERR  = 10  WORD  LENGTH  GREATER 

49HIERR  = IXXXXXXXXX  MEANS  BATT  RAD  AREA  IS  SUPPLIE 
0C./,7X,34HIERR  = 100  BIT  RATE  IS  TOO  LARGE, 35X.8HIN  RADA8,/,7X,3 

E6HIERR  = 1000  SPEC. COMO .SYNC. FLG  NE  0, 15X,  SlHlERR  = XlXxixXxXX 

FKEANS  OSR  CONV.  AND  VARIABLE  COND  ,/,7X, SeftlERR  = 10000  END  OF  DAT 
GA  BASE  SENSED, 33X, 34HUCTANCE  HEAT  PIPE  INFO  IS  REQUIRE0,/,5X, 14HVE 
HHICLE  SIZING, 39X,45HIERR  = XXIXXXXXXX  MEANS  PHASE  CONTr6lmA§S  IS) 

PRINT  9013 

9013  FORMAT  (7X,26HIERR  = 0 MEANS  NO  MESSAGES, 43X,15HSUPPLIEO  IN  PCM,/, 
17X.46HIERR  = 1 MEANS  BODY  MOUNTED  SOLAR  ARRAY  LENGTH, 5X,50HIERR= 
2XXX1XXXXXX  MEANS  ISOTHERHALIZER  IS  REQUIRED,/,  16X,  ZefteX^EEDS  EQUIP 


NASA 

901 

NASA 

902 

NASA 

903 

NASA 

904 

NASA 

905 

NASA 

906 

NASA 

907 

NASA 

908 

.NASA 

90  9 

NASA 

910 

NASA 

911 

NASA 

912 

NASA 

913 

NASA 

914 

112174 

1 

112174 

2 

112174 

3 

112174 

4 

112174 

5 

112174 

6 

112174 

7 

112174 

8 

112174 

9 

112174 

10 

112174 

11 

NASA 

926 

NASA 

927 

NASA 

928 

112174 

12 

112174 

13 

NASA 

931 

NASA 

932 

NASA 

933 

NASA 

934 

NASA 

935 

NASA 

936 

NASA 

937 

NASA 

938 

112174 

14 

NASA 

940 

NASA 

941 

NASA 

942 

NASA 

943 

NASA 

944 

NASA 

945 

NASA  ■ 

946 

NASA 

947 

NASA 

948 

NASA 

949 

NASA 

950 

NASA 

951 

NASA 

952 

NASA 

953 

NASA 

954 

NASA 

955 

NASA 

956 

NASA 

957 

7^i^§Q5|Ri§^Jp|?»a^^  SiSr'iR'^gSS^R'^ig^ilggL 

9EA  fs'sUpfUEL/Izex^fHirRlDA)  " XXXXXXXXXl  MEANS  RADIATOR  AR 


P tt**t^tt*tt*tT***********'^***‘***’^***'***********’^*****^*****^*»v‘f****** 

S BEGINNING  OF  THE  SYSTEM  LEVEL  OUTPUT  ** 

C **********************»*****»***»»**^^»***»*»»****4MMHMMHi^^;(i44^^^^^^^^^^ 

IflO  PRINT  9000 

PRINT  9999.ITITLE 
9999  FORMAT  (10X.13A6) 

^ PRINT  10  2,NACCEP 

102  FORMAT (47H  * * * * SYSTEM  DESCRIPTION  - - DESIGN  NUMBER  ,13, 8H  » 

C 

C PRINT  STABILIZATION  AND  CONTROL  INFORMATION 

PRINT  10  A 

^ lOA  F0RMAT(12X,25HSTA8ILIZATI0N  AND  CONTROL) 

ICONF  = NCONF(l) 

^ GO  TO  (106, 108, 110, 112, llA) , ICONF 

C DUAL  SPIN 

C 

106  PRINT  107 

107  F0RMAT(14X,27HC0NFIGURATI0K  - - DUAL  SPIN) 

^ GO  TO  116 

C YAH  SPIN 

C 

108  PRINT  109 

f0RHATClAXt26HC0NFI6URATICN  - - YAW  SPIN) 

GO  TO  116 


3-AXIS  MASS  EXPULSION 

110  PRINT  111 

111  PORMAT(lAX,A3HCONFIGURATION  - 
GO  TO  116 


THREE  AXIS  MASS  EXPULSION) 


MASS  EXPULSION  WITH  CONTROL  MOMENT  GYROS  (CHG) 

112  print  113 

■ ‘ EXPULSION  WITH  CONTROL  MOMENT 

GO  TO  116 

HASS  EXPULSION  WITH  PITCH  MOMENTUM  WHEEL 
llA  PRINT  115 

expulsion  WITH  PITCH  MOMENTUM 


170 

175 

160 

185 

190 

195 

sO 

I 

w 

200 

205 

210 

215 

220 

225 


C 

C 


C 

C 

C 


C 


C 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 


c 

c 

c 


c 


c 

c 

c 


c 

c 

c 


c 

c 


c 


116  PRINT  117.ACCRCY 

117  FORMAT{16X,20HPOINTING  ACCURACY  = ,F11.6,  6H(DEG.)) 
PRINT  AUXILIARY  PROPULSION  INFORMATION 

PRINT  119 

119  FORNAT(12X,20HAUXILIARY  PROPULSION) 

ICONF  * NCONFC2) 

GO  TO  <12fl,122,12A),lC0NF 

COLO  GAS 

120  PRINT  121 

121  F0RHAT(14X»26HC0NFIGURATICN  - - COLD  GAS) 

GO  T>p  12  6 

MONOPROPELLANT 

122  PRINT  123 

123  fORHAT(lAX,32HCONFIGURATICN  MONOPROPELLANT) 

GO  TO  126 

BIPROPELLANT 

12A  PRINT  125 

125  FORMAT <1AX,30HCOKFIGURATICK  - - BIPROPELLANT) 


126 

127 


129 


130 

131 


132 

133 


PRINT  127, TI 

F0RMAT(16X,16HT0TAL  IMPULSE  = ,F11.0,  8H<L8-SEC))  ' 

PRINT  DATA  PROCESSING  INFORMATION 
PRINT  129 

FORMAT {12X,35HDATA  PROCESSING  AND  INSTRUMENTATION) 

ICONF  = NC0NF(3) 

GO  TO  (130, 132), ICONF 

GENERAL  PURPOSE  PROCESSOR 


F0RMAT(1AX,43HCCNFIGURATICN  - - GENERAL  PURPOSE  PROCESSOR) 

GO  TO  134 

SPECIAL  PURPOSE  PROCESSOR 
PRINT  133 

FORMAT(14X,49HCONFIGURATICN  - - SPECIAL  PURPOSE  PROCESSOR  (OTU)) 


134  PRINT  135,T070PS 

135  FORMAT(16X,27HCOMPUT£R  OPERATIONS  RATE  = ,F11,0,  5H(IPS>) 
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C 
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C 

C 
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C 

C 

C 


G 

C 
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PRINT  CDPI  INFO  TABLES 
PRINT  13  6 

136  FORMAT(16X.10HCOPI  TABLE  ,34X, 1 CHENGINEERING  0ATA,4X, 22HHISSION  EQU 
liPMENT  DATA) 

PRINT  136,C0PI(1,1),CDPI(1,2) 

138  FORHATC18X,18HNUMeER  OF  COMMANDS, 35X« F5 . 0, 18X, F5 . 0) 

PRINT  139,C0P1(2.1),C0PI(2,2) 

139  FORMAT (18X,26HNUMB£R  OF  MAIN  FRAME  WORDS  ,27X ,F5 . 0, 18X , F5. 0 ) 

PRINT  140,COPI (3,l),COPI(3,2» 

140  FORMAT (1  ex, 22HMAIN  FRAME  SAMPLE  RATE, 25 X, Fll.O , 12X, Fll ,0) 

PRINT  141,C0PI(4,1),CDPI<4,2) 

141  FORMAT(l«X,22HMAIN  FRAME  WORD  LENGTH , 31X , F5. 0, 18 X,F5, 0 ) 

PRINT  142, COPI  15,1), CDPI  <5,2) 

142  FORMAT  (18X.19HNUM8ER  OF  SUBFRAHES,34X,F5.0 ,ieX,F5.0) 

PRINT  143, CDPI (6,1), CDPI (6, 2) 

143  FORMAT(18X,13HSUBFRAME  RATE,38X,F11. 4,12X,F11. 4) 

PRINT  144,CDPI(7,1),CDPI{7,2) 

144  FORMAT(18X,28HNUMBER  OF  WORDS  PER  SUBFRAME, 25X  ,F5. 0, 1 8X,F5 .0 ) 

PRINT  COMMUNICATIONS  INFORMATION 

PRINT  146 

146  FORMAT (12X,14HC0MMUNICATI0NS) 

ICONF  = NCCNF(4) 

GO  TO  (148, 150, 152, 154, 156), ICCNF 


SEPARATE  UPLINK  AND  DOWNLINK) 


SEPARATE  UPLINK  AND  DOWNLINK 

148  FRINT  149 

149  FORMAT(14X,46HCONFIGURATION  - 
GO  TO  15  8 

UNIFIED  LINK  - COMMON  ANTENNAS 

150  FRINT  151 

151  FORMAT(14X,46HCONFIGURATICN  UNIFIED  LINK-COMMON  ANTENNAS) 

GO  TO  158 

UNIFIED  LINK  - SEPARATE  ANTENNAS 

152  PRINT  153 
GO  TO  158 

153  F0RHAT(14X,48HC0NFIGURATI0N  - - UNIFIED  LINK-SEPARATE  ANTENNAS) 
UNIFIED  LINK  - COMMON  ANTENNAS  PLUS  DOWNLINK 

154  FRINT  156 

155iFORMAT(14X,60HC0NFI6lRATICN  - - UNIFIED  LINK-COMMON  ANTENNAS  PLUS 
GO  TO  158 

UNIFIED  LINK  - SEPARATE  ANTENNAS  PLUS  DOWNLINK 

156  PRINT  15  7 

157  FORMAT(14X,62HCONFIGURATICM  - - UNIFIED  LI NK-SEP ARATE  ANTENNAS  PLU 
IS  DOWNLINK) 
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108 
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111 
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113 
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119 

120 
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123 

124 

125 

126 

127 

128 

129 
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131 

132 

133 

134 
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136 

137 
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139 

140 

141 

142 

143 

144 
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PRINT  DATA  RATES 

158  PRINT  159,BITRAT(1) 

159  FORMAT(16X,30HPRIHARY  DOKMINK  DATA  RATE  = ,F14. 3, 6H ( KBPS) ) 

PRINT  160,BITRAT(2) 

160  FORMAT  (16X.30HSEPARATE,  OOWNU  INK  DATA.  RATE  •=  ,F1^.3»6H(KBPS)  I,  ' 
PRINT  ELECTRICAL  POHER  INFORMATION 

PRINT, 162 

162  PORMAT(12X,16HELECTRICAL  POWER) 


ICONF  = NCONF(5) 

GO  TO  C164, 166, 168, 170, 172, 174) , ICONF 


SHUNT 


- PAOOLE  WCUNTEO 


164  PRINT  165 

165  F0RMAT(14X,51HC0NFIGURATI0N  - - SHUNT  -PAOOLE  MOUNTED  SOLAR  ARRAY) 
GO  TO  176 


SHUNT 


- BODY  MOUNTED 


166  PRINT  167 

167  FORMATC14X,50HCONFIGURATION  SHUNT  - BODY  MOUNTED  SOLAR  ARRAY) 

GO  TO  176 

SHUNT  AND  DISCHARGE  - PAOOLE  MOUNTED 

168  PRINT  169 

169  FORMAT (14Xo77HC0NFIGURATl0N  - - SHUNT  AND  DISCHARGE  REGULATION  - P 
lAODLE  MOUNTED  SOLAR  ARRAY) 

GO  TO  176 

SHUNT  AND  DISCHARGE  - BODY  MOUNTED 

170  PRINT  171 

171  FORHAT(14X,75HCONFIGURATION  - - SHUNT  ANO  DISCHARGE  REGULATION  - B 
lOOY  MOUNTED  SOLAR  ARRAY) 

GO  TO  176 

SERIES  LOAD  REGULATION  - PADDLE  MOUNTED 

172  PRINT  173 

173  FORHAT(14X,69HCONFIGURATICN  - - .SERIES  LOAD  REGULATION  - PAOOLE  MO 
lUNTEO  SOLAR  ARRAY) 

GO  TO  176 

SERIES  LOAD  REGULATION  - BODY  MOUNTED 

174  PRINT  175 

175  FORMAT (14X,67HC0NFIGURATICK  - - SERIES  LOAD  REGULATION  - BODY  MOUN 
ITED  SOLAR  ARRAY) 
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350 
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370 
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385 
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395 


fRINT  EoP.  STATS 
176  PRINT  177, PL 

1-77  FORMAT  (16X,35HEMD  OF  LIFE  POWER  REQUIREMENT  =,  Fll.  2,  7H  (WATTS) ) 
FRINT  17  9,  AREA 

179  fORMAT(16X,22HTOTAL  SOLAF  ARRAY  AREA  ,12X,1H=,F11.2,  7H(FT**2)) 
FRINT  181,CISTAR 

181  F0RMATU6X,35HMINIMUM  INSTALLEE  BATTERY  CAPACITY=,  Fll.  2,  8H(  AMP-HR) 
1) 

FRINT  VEHICLE  SIZING  INFORMATION 
FRINT  183 

183  FORMAT(12X,14HVEHICLE  SIZING) 

ICONF  = NC0NFC6) 

GO  TO  (164,186,186)  tICCNF 

CYLINDER- 

184  FRINT  185 

185  FORMAT (14X,26HC0NFIGURATICN  CYLINDER) 

GO  TO  190 


186  FRINT  187 

187  FORMAT(14X,21HCONFIGURATION  - *•  BOX) 

GO  TO  190 

SPHERE 

188  FRINT  189 

189  FORMAT (14X924HC0NFI6URATICK  SPHERE) 

PRINT  VEHICLE  WEIGHT  AND  LAUNCH  WEIGHT 

ill  FORMAT  (lHfl7HvlHICLE^MEIGHT  = , Fll.  2,23H(LBS)  LAUNCH  WEIGHT  = , 
*F11.2,5H(L8S)) 


FRINT  EQUIPMENT  BAY  DIMENSIONS 
PRINT  192, EQ8LG, SIDE, SIDE 

192  FORMAT (16X,31H£QUIPMENT  BAY  DIMENSIONS  LENGTH* Fll, 2, IIH(IK), HEIGHT 
1,F11.2,10H(IN) ,HI0TH,F11.2,4H(IN)) 

PRINT  MAXIMUM  MISSION  EQUIPMENT  HEIGHT  AND  WIOTHAND  LENGTH 

FRINT  193,XMEL,XHEH,XMEW  ^ 

193  FORMAT (16X,25HMISSI0N  EQUIPMENT  LENGTH  , FI 1. 2, 12H (IN ), HEIGHT  ,F11. 
12,12H(IN),  WIDTH  ,F11 . 2, 4H (IN) ) 


PRINT  TOTAL  SATELLITE  LENGTH 
PRINT  194tSATLG 

194  FORMAT  (16X,23HT0TAL  SATELLITE  LENGTH  ,F11,.2, 4HTIN) ) 

PRINT  MOMENTS  OF  INERTIA 

PRINT  195,XJ,YJ,ZJ 

195  FpRMAT<ieXf33HhOMENTS  OF  INERTIA  (LB- IN**2J  IXX=fFll.l,  5H  lYY- 
1«1«9H  IZZ=^»Fll«ll 

PRINT  9000 

PRINT  SAFETY(RELIABILITY)  INFORMATION 
PRINT  200 

200  F0RMAT(12X,  6HSAFETY) 

ICONF  = IREL  +1 
GO  T0(202,204) tICONF 

SIMPLE  SYSTEM 

202  PRINT  20  3 ' 

203  FORMAT (14X,31HC0NFIGURATI0N  - - SINGLE  SYSTEM) 

GO  TO  206 

DUAL  SYSTEM 

204  PRINT  205 

205  F0RHAT(14X,29HC0NFIGURATICN  DUAL  SYSTEM) 

PRINT  REL  STATS 

206  PRINT  207*MMD0LO 

207  FORMAT (16X,21HHEAN  MISSI CN  DURATION, 7X,F11.1,4H(M0) > 

PRINT  209,R0LD(ITRUNC) 

209  F0RNAT(16X,11HRELIABILITY,17X,F11,3)  . 

PRINT  211,TRUNC 

211  F0RMAT(16X,28HMISSI0N  LIFETIME  ,F11,1,4H<M0>) 

BEGIN  COST  PRINT-OUTS 


PRINT  220 

220  FORMAT (12X,34HCOSTS  (ALL  AMOUNTS  ARE  IN  DOLLARS)) 
PRINT  222 

222  FORMAT(55X,  5HD0T+E»2 8X, 22HI NVESTMENT  (RECURRING)) 
PRINT  OES.  ENG.tOE)  AND  UNIT  ENG. (PE) 

PRINT  224,DE,PE 
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C 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 
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224  F0RMAT(16X,18HDESIGN  ENG INEERI NG ,18X >F13. 1, 4X , 16HUNIT  ENGINEERING, 
111X,F11.1) 

PRINT  TEST  AND  EVAL,<TEJ  AND  UNIT  PROD.  (PU> 

PRINT  22e,TE,PU 

226  FORMATC16X,19HTEST  AND  EVALUATION, 17X,F13«1,4X,15HUNIT  PRODUCTION, 
112X,F11.1)  • 

PRINT  TOOLING  CTOOLR  + TCCLU) 

PRINT  228.T00LR.T00LU  , . . . 

228  FORMAT<ieX,26HTOOLING  ANC  TEST  EQUIPMENT, IQX, F13. 1, 4X, 24HT00LING  A 
IND  TEST  EQUIP.  ,1X, F13.il 

PRINT  QUALITY  CONTROL  (QCR  + QCP) 

R?INT  230,QCR,QCP 

230  F0RMAT(16X,15HGUALITV  CONTROL ,21X, FI 3.1 ,4X, 15HQUALITY  CONTROL, lOX, 
IF13.1I 

PRINT  system  eng. AND  INTEGRATION  (SEIR  * SEIP) 

PRINT  23 2, SEIR , SE IP 

232  FORMAT (16X,36HSYST£MS  ENGINEERING  AND  INTEGRATION  ,F13 . 1, 4X,21HSYS 
ITEMS  ENG.  AND  INT . ,4X , F13.1) 

PRINT  PROGRAM  MANAGEMENT  (PMR  + PMPI 

PRINT  234,PMR,PMP 

234  FORMAT (16X,16HPR0GRAH  MANAGEMENT, 18X,F13.1,4X,18HPR0GRAM  MANAGEMEN 
IT, 7X, F13.il 

RINT  COSTS  BY  DDT+E, INVESTMENT  AND  OPERATIONS  BREAK-OUT 
PRINT  236 

236  FORMAT {14X.13HC0ST  CATEGORY, 13X, 5H00T+E, 15X,10HINVESTMENT,15X, 

* lOHOPERATIONSI 

PRINT  SPACECRAFT  COSTS 

PRINT  238>SATR.SATINV 

238  FORMAT (16X,HJHSPACECR AFT, 10X,F 13.1 ,9X,F13. II 
PRINT  MISSION  EQUIPMENT  COSTS 
PRINT  24G,XMER,XMEINV 

24D  FORMAT(16X,17HMISSION  EQUIPMENT, 3X, F13. 1,9X,F13, II 
PRINT  TOTAL  PAYLOAD  COSTS  (SUM  OF  PRECEDING  JHOI 
PRINT  242,PAYR,PAYINV^ 

242  F0RMAT(16X,13HT0TAL  PAYLOAD, 7X,F13.1,9X,F13.1) 

PRINT  QUALIFICATION  UNITS  COST 
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REPEODUCIBILITY  OF  THE 
ORIGINAL  PAGE  IS  POOR 
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c 
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c 


c 

c 
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PRINT  244,PAYQtL 

244  fORMAT(t6X,20HQUALIFlCflTION  UNITS  ,F13.1) 

PRINT  GS£ 

PRINT  246, GSE 

246  FORHAT(16X,  6HG .S . E, , 14X , F13 . 1) 

PRINT  LAUNCH  SUPPORT 
PRINT  248,XLT0T 

248  FORNAT(i6X,14HLAUNCH  SUPPORT, 53X,F13.1) 

PRINT  CONTRACT CR  FEE 
PRINT  250, PEER, FEEINV.FEEOPS 

250  FORMAT  aeX,14HC0NTRACT0R  FEE,6X,F13. 1,9X,F13.1,12X,F13,1) 

PRINT  PROGRAM  TOTALS 
PRINT  252,  DOTE, XVEST, OPS 

252  F0RMAT(16X,14HPR0GRAM  TOTALS, 6X, F13. 1, 9X, F13. 1 ,12X,F13.1) 

PRINT  SCHEDULE  INFORMATION 
PRINT  254 

254  F0RMAT(12X,  8HSCHEOULE) 

PRINT  COMPONENT  DESIGN  DEVELOPMENT  TIME 
PRINT  256,SKTAU(1) 

256^FORMAT(16X,33HCOMPONENT  DESIGN  DEVELOPMENT  TIME ,13X , F5. 1, 8H(M0NTHS 

PRINT  COMPONENT  QUALIFICATION  TIME 
PRINT  258,SKTAU(2> 

258  FORMAT{16X,28HCOMPONENT  CUAL IFIC ATION  T lM£,i 8X ,F5. i , 6H (MONTHS » ) 
PRINT  SUBSYSTEM  DEVELOPMENT  TIME 
PRINT  260,SKTAU(3> 

260  FORMAT (1  ex, 26HSU8SYSTEH  DEVELOPMENT  TIME,2 0X,F 5. 1, 8H (MONTHS) ) 

PRINT  SUBSYSTEM  QUALIFICATION  TIME 
PRINT  262,SKTAU(4) 

262  FORMAT(16X,28HSUBSYSTEM  QUALIFICATION  TIME, 18X, F5. 1, 8H (MONTHS)) 
PRINT  SYSTEM  DEVELOPMENT  AND  FLIGHT  READINESS  TIME 
PRINT  264,SKTAU(5> 

DEVELOPMENT  AND  FLIGHT  READINESS  TIME  ,F5.1, 

IdHCMONTHS) ) 
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c 

112074 

450 

c 

FRINT  SCHEDULE  DURATION  TO  LAUNCH 

11207L 

451 

G 

112074 

452 

FRINT  266,SKTAU(6) 
FORMAT  (16X,29HSCHE0ULE 

112074 

453 

,266 

DURATION  (TO  LAUNCH) ♦ 17 X, F5. 1 , 8H (MONTHS)) 

112074 

454 

c -■ 

112074 

455 

112074 

456 

C ** 

END  OF  SYSTEM  PRINT-OUT.  — BEGIN  SUBSYSTEM  IF  REQUIRED  ** 

112074 

457 

112074 

.458 

C 

112074 

459 

FRINT  9000 

112074 

46  0 

IF  (IPRINT.LE.  1)  RETURN 

112074 

461 

FRINT  9999,ITITL£ 

112074 

462 

FRINT  lOOOiNACCEP 

112074 

463 

lOQQ 

FORMAT (51H  * * » ♦ SUBSYSTEM  CESCRIPTIONS  - - DESIGN  NUMBER  .13*8 

112074 

464 

IH  * * * ♦) 

112074 

465 

FRINT  10  A 

112074 

466 

ICONF  = NCONF(l) 

112074 

467 

GO  TO  (10GA.1006«1008«lQiO<1012) iICONF 

112074 

468 

C 

DUAL  SPIN 

112074 

469 

100<« 

FRINT  10  7 

112074 

470 

GO  TO  1014 

112074 

471 

C 

YAH  SPIN 

112074 

472 

1006 

FRINT  109 

112074 

473 

GO  TO  1014 

’ 

112074 

474 

C 

3-AXIS  MASS  EXPULSION 

112074 

475 

1006 

FRINT  111 

112074 

476 

GO  TO  1014 

112074 

477 

C 

M.E.  W/  CMG 

112074 

478 

1010 

FRINT  113 

112074 

479 

GO  TO  1014 

112074 

460 

c 

M.E.  H/  P.H.H. 

112074 

461 

.1012 

FRINT  115 

112074 

482 

c 

112074 

463 

c 

112074 

464 

c 

112074 

485 

lfll<» 

CONTINUE 

112074 

486 

c 

112074 

467 

c 

FRINT  S + C EQUIPMENT  IDENTIFIERS 

112074 

488 

c 

112074' 

469 

IK  = NEQUIP(l) 

112074 

490 

c 

112074 

491 

FRINT  1020. CICHOSE(I) ,] 

:=i,iK) 

112074 

492 

1020 

FORMAT(14X,25HEQUIPM£NT  CODE  IDENT IF lER. 14 < IX, 14 ) ) 

112074 

493 

FRINT  1C22,(NCF0SE{I)  ,] 

[=i,IK) 

112074 

494 

1022 

F0RMAT(14X,25HEQUIPMENT  CUANTITIES  ♦14C1X,I4)) 

112074 

495 

PRINT  1024,HElGHT(i),VOLUME<l) ,POHER(l» 

1120  74 

496 

102^ 

FORMAT (24X,7HWEIGHT  , Fll. 2, 1 3H  (LBI , VOLUME  , Fll. 2,27H ( FT*»3) , POWE 
IR  REQUIREMENT  .Fll.l. 6H(HATT) ) 

112074 

120474 

497 

12 

c 

112074 

499 

c . 

FRINT  S+C  COSTS 

112074 

500 

c 

112074 

501 

FRINT  1026.SUBE(l).SUBT(l),SUBUP(i),SUBUE(i) 

112074 

50,2 

1026 

FORMAT (24X.16HCES.  ENG. 

COST  .F11.1.10X.17HTEST  + EVAL.  C0ST,4X,F 

112074 

50.3 

*11.1,/,24X,16HUNIT  PROC.CCST  ,F11 . 1 , 10 X .17HUN IT  ENG.  C0ST,4X,F 

112074 

■ 504 

♦11. t» 

1120  74 

505 

C 

1 12074 

5G6 

PRINT  S+C  REL 
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C 

C 
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c 
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1026 


FRINT  1026,SSREL(1> 
fORHAT(2<»X,llHRELIABILITY,5X,.F11.4) 

FRINT,  S+C  SCHEDULE: 

FRINt  S+C  SCHEDULE 


FRINT  1030,(TAUU,J)«  J=1 
1C30  FORNAT(24X»  8HSCHEOULE  j/.to  a,  c f ni,, 

*7H(MONTH)  COMPONENT  QUALIFICATION  TIME  , F5 . Ii7 H (MONTH) ,/ ,26X,27H§ 
+BSYSTEM  DEVELOPMENT  TIKE  ,F5.1.37H (MONTH)  SUBSYSTEM  QUALIFICATION 
+TIME  .F5.1,7H(H0MTH),/,26X,45HSYSTEM  DEVELOPMENT  AND  FLIGHT  REAOIN 
*ESS  TIME  ,F5.1,7H(M0NTR)) 


j5) 

26X,27HCOMPONENT  DEVELOPMENT  TIME  ,F5.1i3 

27HSU 


C 

C 

C 


1032 


C 

c 

c 


FRINT  10  32,IEFR(1) 

FORMAT  (2<»X,AHIERR*5X,  110) 
PRINT  A.P.  SUBSYSTEM  INFO 


PRINT  119 

ICONF  = NC0NF(2) 

GOTO  (103A»1036,1036) ,ICCNF 


1034 


C 

C 

C 


COLD  GAS 

FRINT  121 
60  TO  1040 

MONOPROPELLANT 


C 

C 

C 

C 

c 


1036  FRINT  123 
60  TO  1040 

eiPROPELLANT 

1030  FRINT  125 


1040  IJ  = IK  + 1 

IK  = NEQUIP(2)  + 


IK 


,POHER(2) 


C 

C 

G 

C 


FRINT  1020) (ICHOSE(I) ,I=lJfIK) 

FRINT  1022,(NCHOSE(I) ,I=IJiIK) 

PRINT  1024,HEIGHT(2), V0LUME(2) 

FRINT  1041,DRIHT,ACSHP 
1041  FORMAT (24X»11H0RY  WEIGHT  F11.2,25H (L8S) f EXPENDABLE  HEIGHT  ,F11.2i 
15H(LBS))  . 

FRINT  1026,SU8E(2),SUeT<2),SUBUP(2),SUBUE(2) 

1028,SSREL(2) 

1030,(TAU(2,J), J=l,5) 

1032tIERR(2) 


PRINT 

FRINT 

FRINT 


FRINT  DPI  S/S  INFO 


112074 

507 

112074 

508 

112074 

.50  9 

112074 

510 

.112074 

Ell 

112074 

512 

112074 

513 

112074 

514 

112074 

515 

112074 

516 

; 112074 

517 

1 112074 

5;18 

112074 

519 

1 112074 

520 

112074 

521 

112074 

522 

112074 

523 

112074 

524 

112074 

525 

112074 

526 

112074 

527 

112074 

528 

112074 

529 

112074 

530 

112074 

531 

112074 

532 

112074 

533 

112074 

534 

112074 

535 

112074 

536 

112074 

537 

112074 

538 

112074 

539 

112074 

540 

112074 

541 

112074 

542 

112074 

543 

112074 

544 

112074 

545 

112074 

546 

112074 

547 

112074 

548' 

112074 

549 

112074 

550 

112,074 

551 

,112074 

552 

112074 

553 

112074 

554 

• 112074 

555 

. 11207.4 

556 

112074 

557 

112074 

558 

112074 

559 

112074 

560 

112074 

561 

112074 

562 

112074 

563 

PRINT  129 

ICONF  = NCONFO) 

GQ  TO  (1042f  10-44)  , ICONF 

G£N.  PURR.  PROC. 

PRINT  131 
GO  TO  1046 

SPEC.  PURP.  FROG* 


IB’44  PRINT  133 


1046 


IJ  = IK  + 1 

IK  = NEQUIPC3)  ♦ IK 

PRINT  1020 tCIGHOSECX) ,1=1 J»IK) 
PRINT  1022,(NCHOSE(IJ,1=IJ»IK) 
FRIMT  lfi2b.MFIGHT(3).VOLUHEO) 


1048 


1050 


1052 


1054 


print  10  28,SSREL(31 
PRINT  103C,CTAU(3,J), J=i,5) 

PRINT  1032,IERR(3) 

PRINT  COMM  S/S  INFO 

PRINT  9000 
PRINT  146 

GO°TO  7l048*!!i050, 1052, 1054,1056)  , ICONF 

SEPARATE  UP  ♦ DOWN 

PRINT  149 

GO  .TO  1058 

UN  IF,  COM.  ANT, 

PRINT. 151 
GO  TO  1058 
UNIF,  SEP,  ANT, 

PRINT  153 
GO  TO  10  58 

UNIF.  COM.  ANT.  + OOHN 
PRINT  155 
GO  TO  10  58 

UNIF,  SEP,  AMT,  + DOWN 


SUBUEC3) 


1056  PRINT  157 


1058  XJ  = IK  ♦ 1 

IK  = NEaUIP(4)  ♦ IK 

PRINT  10  2a,flCHOSEII)  ,I=IJ,|K) 

PRINT  1022,{NCHOSE<I»  ,I=IJ,IK) 

PRINT  i0  24,H£IGHT(4),VCLUMEC4)  jP0HER(4)  ^ 
PRINT  10  26,SU8E<4)  ,SUet<4)  ,SUiBUPC4)  , SUBUE64) 


PRINT  1028,SSR£L(4) 

PRINT  1030,<TAU(4tJ)8 J=i»5) 

PRINT  1032.IERR(A) 

: PRINT  E.P.  S/S  INFC» 

’ PRINT  162 

GO°TO  (106oJl062»i06A, 1066, 1063, 1C70),ICONF 

: SHNT  / PADDLE 

10  60  PRINT  165 
GO  TO  1072 

: SHNT  / BODY 

1062  PRINT  167 
GO  TO  1072 

: SHNT  + OSCHG  / PADDLE 

106<«  PRINT  169 
GO  TO  1072 

• SHNT  + DSCH6  / BODY 

1066  PRINT  171 
GO  TO  1072 

; SER.  LD.  / PADDLE 

1068  PRINT  173 
GO  TO  1072 

: SER,  LD.  / BODY 

1070  PRINT  175 


1072  IJ  = IK  ♦ 1 

IK  = NEQUIP(5)  + IK 

PRINT  1020,(ICHOSE(I) ,I=IJ,IKI  , 

PRINT  ioU’wEIGHT  (5)  ,J0LUME<5)  ,P0WER{5) 

PRINT  iozeJsUBEcIl jSUBT(5),SU8UP(5) ,SU8UE(5) 

PRINT  1028,SSREL(5> 

107A  FORMAT^2LX?14HHARfl£S§  HEiGHT,Fll.l,25H{LBS> , SOLAR  ARRAY  W£IGHT,F1 
»1.1,5H{LBS)> 

% . 

; PRINT  MISSION  EQUIPMENT  INFORMATION 

\ * 

PRINT  1076 

1076  F0RMAT(12X,17HMISSI0N  EQUIPMENT) 

PRINT  1024,XMEWT,XMEVL,EPME 

1078  F0^AT(24xIiflH06T+i^C0ST,6X,Fll.l,9X,i7HAVERA6E  UNIT  CGST,3X,Fll.l 

*) 

PRINT  1028,SSREL (6) 


800 


805 


610 


615 


820 


vO 

I 

(4^ 

825 


830 


835 


8<f0 


845 


850 


C 

C 

C 


PRINT  1030  »(TAli(6,J),J=l»5) 

PRINT  9000 

PRINT  THERMAL  CONTROL  SUBSYSTEM  INFORMATION 


C 

C 

C 


PRINT  1080 
1080  F0RMATC12X,15HTHERMAL  CONTROL) 

PRINT  1082«RAOA,RADA8iRAT 

1082  FORMAT  (14X.13HRA0IAT0R  AREA,3X,F11. 1, 32H  CFT**2).t  BATTERY  RAOIATO 
*F  /«EA,7X,F11,1,8H  (FT**2) ♦/,52X,19HT0TAL  RADIATOR  AREA,9X,F11.1, 
*8H  (FT**2l)  • 

PRINT  1084,HTRFMR,HTRPRBiHPT 

1084  FORMAT (14X.12HHEATER  POWER, 4X, Fll. 1, 31H (BTU/HR) , BATTERY  HEATER  P 
*CHER,8X,F11.1,8H(8TU/HR) ,/,52X,18HTOTAL  HEATER  POWER, lOX , Fll. 1 ,8H( 
*BTU/HR)) 

PRINT  1086,HTP1PE,WCHP 

1086  FORMAT(14X,10HHEAT  PIPE  ,6X,F11. 1,39H<HATT-IN) , VARIABLE  CONOUCTAN 
*CE  H.P,  ,F11.1,9HCHATT-IN)I 
PRINT  1088,THCHMT 

1088  F0RMAT«14X,23HTHERMAL  CONTROL  WEIGHT  , Fll. 1, 5H (LBS) ) 

PRINT  10  26,SUBE(7),SUBT(7),SUBUP(7),Sl)BUE<7) 

PRINT  1032,IERR(7) 

PRINT  STRUCTURES  SUBSYSTEM  INFORMATION 

PRINT  1090 
1090  FORMAT (12X,10HSTRUCTURES) 

PRINT  10  92,T 

1092  FORHAT(14X,16HSKIN  THICKNESS  ,F11.3,5H  (IN)) 

PRINT  1094,AN,TS,BS 

1094  FORMAT (14X,2&HSTRINGER  NO. , THICKNESS , HT . ,8X, F5. 0 ,5X, IH, , SX, Fll. 3, 6 
(IN) ,.5X,F11.3,5H  (IN)) 

PRINT  i096,AH,TF,BF 

1096  FORMAT  (14X,26HFRAME  NO.  ,T  HCKNESS,HT.  , 8X,  F5 .0  ,5X  ,1H,  , 8X,F11. 3,6 
*P  (IN),,5X,F11.3,5H  (IN)) 

PRINT  10  98,TC,TB,TA  I 

1098  F0RMAT(14X,28HEN0C0VERI THICKNESS-  FORWARD  ,F11.3,14H  (IN),  CENTER 
*,F11.3,11H  (IN).  AFT  ,F11.3,5H  (IN)) 

PRINT  110O,EQESTR,SABHHT,SATAOP 

1100  F0RMAT(14X,27HEQUIPMENT  BAY  STRUCTURE  WT.,3X,F11.1,6H  (LBS),/, 

* 14X,30HSOLAR  ARRAY  BOOH  AND  DRIVE  WT.,Fli.l,6H  (LBS),/, 

* 14X,14HADAPTER  HEIGHT, 16X, Fll. 1,6H  (LBS)) 

FRINT  1026,SUBE(6) ,SUBT( () ,SOBUP (6) , SUBUE (6) 

END  OF  SUBSYSTEM  PRINT  - BEGIN  ASSEMBLY  LEVEL  (IF  REQUIRED) 

* *>ftnm-»n§-**^if*9****  ******  *9***  9**9  ****>f**^  9*  *’^*’^**  *************** 

FRINT  9000 

IF  (IPRINT.LE.2)  RETURN 


C 

C 

C 

C 

C 


FRINT  9999,ITITLE 
PRINT  2000,NACCEP 
2000  FORMAT(50H  • ♦ ♦ * 
*****) 

FRINT  104 


ASSEMBLY  DESCRIPTIONS DESIGN  NUMBER  ,I3,.8H 


112074 

677 

112074 

678 

112074 

679 

112074 

. 680 

112074 

681 

112074 

662 

112074 

683 

112074 

684 

112074  • 

685 

112074 

686 

112074 

687 

112074 

68  8 

112074 

689 

112074 

693 

112074 

691 

112074 

692 

112074 

693 

112074 

694 

112074 

695 

1120  74 

696 

11207*, 

697 

112074 

698 

112074 

699 

112074 

700 

112074 

701 

112074 

702 

112074 

703 

112074 

704 

112074 

705 

112074 

706 

112074 

707 

112074 

708 

112074 

709 

112074 

710 

112074 

711 

112074 

712 

112074 

713 

112074 

714 

112074 

715 

112074 

112074 

717 

112074 

718 

112074 

719 

112074 

720 

112074 

721 

112074 

722 

112074 

723 

112074 

724 

112074 

725 

112074 

726 

112074 

727 

112074 

728 

112074 

729 

112074 

730 

112074 

731 

112074 

732 

112074 

733 

855 

860 

865 

870 

875 

f 880 

885 

850 

895 

900 

905 


2010 

C 

2100 

2110 

C 

C 


2200 

C 

C 


C 

c 

2300 

C 

C 

C 

C 

c 


2'fOO 

C 

.C 

C 


PRINT  2010 

IK  =,NEQUIP(1) 

PRINT  S+C 
CO  2100  I » IJ.IK 

^ PRINT  2110  »ICH6se (I) , (NAME  U, n 3) , NCHOSE(I) ,REL(1,I) ,VQL (I) , 

PRINT  A.P. 

IJ  = IK  + 1 
IK  = NEQUIP(2)  + 


IK 


PRINT  9001 
PRINT  119 


PRINT  2010 
CO  2200  I = IJtiK 

IJ  = IK>1 

IK  = NEQUIP<3)  + IK 

PRINT  9001 
PRINT  129 

PRINT  2010 
00  2303  I = IJ,IK 

PRINT  COMM 

IJ  = IK  + 1 

IK  = NEQUIPC4)  + IK 

PRINT  90  01 
PRINT  1A6 

PRINT  2010 
CO  2400  I = IJ,IK 

^FRINT  2110,ICgOSE<I>5(NAMEtJ,I)jJ=^^ 

PRINT  E.P. 

IJ.=  IK  + 1 

IK  = NEQUIP(5)  + IK 

PRINT  9000 
PRINT  162 


112074 

121274 

121274 

121274 

112074 

112074 

112.074 
112074 
112074 

112.074 
1120-74 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
1120  74 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
1120-74 

1120.74 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 
112074 


734 

1 

2 

3 

738 

739 

740 

741 
742. 

74.3 

74.4 

745 

746 

747 

748 
74.9 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 
. 761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 
779,.. 
7 80 
781 
762 
783 
764 
785 
766 
787 
768 

789 

790 


-46 


910 

915 

920 

925 

930 

935 

940 

945 

950 

955 

960 

965 


PRINT  2010 

DO  2500  I=IJ,IK 

ICHS  = ICHOSE(I)/100 

IF  (ICHS.EQ.2)  RELd.I)  = KB 

IF  IICHS.EQ.2)  WOLtll  = VE 

2 50  0 PRINT  2110,ICHOSE(I)  , ( NAME  <J  » I ) , J=l,  3)  » NCHOSE<  I)  ,REL  (!1,1)  ,VQL.(I), 

Vrint  ,001 

PRINT  2600 

2600  F0RHAT(10X,46HEQUIPMENTS  USING  COST  ESTIMATING  RELATIOKSHIPS) 
PRINT  2610 


2610  FORMAT (88X,7HyEHI CLE,7X,7HV£HICLE»/,12X,4H NAME, 21X,6HWEIGHT,17X, 46 
♦HO. E.  COST  T.E.  COST  PROD.  COST  ENG.  COST) 

I = IK  + 1 . 

PRINT  2620 , HATE, (COST ( J, I) , J=1 ,4) 

2620  FORMAT (12X.11HS0LAR  ARRA Y ,9X  .Fll.l, 16X, 2 CFll . 1 , IX) , IX, 2 (Fll . 1, 2X) ) 
1=1  + 1 

PRINT  2630,HARNHT.(COST(J,I),J=1,4> 

2630  FORMAT (12X,14HHARNESS  ,6X,Fll. 1,16X, 

A # # 


2CF11.1,1X) ,lX,2(Fll.i,2 


1 = 1+1 

RINT  2640,THCMHT,CCOST(J,I) ,J=1,4) 

2640  FORHAT(12X,20HTHERKAL  CONTROL  ,F11.1,16X,2  <F11. 1 ,1X) , IX, 2(F11 . 
♦1, 2X1 ) 


1 = 1+1 


PRINT  265e,C0NWWT, (COST( J.I). J=1.4) 

2650  FORMAT (12X,16HPOWER  C ONVERTERS, 4X, Fll. 1 , 
M,2X)> 


1 = 1 + 1 


PRINT  2660, (COST( J,I) , J=l,4) 

2660  FORMAT (12X,20HPROPULSI0N  FEED  SYS., 
♦1,2X)  ) 


16X,2(Fll.l,lX),lXj2(Fll.l 


27X,2  (F11.1,1X)  ,1X,2(F11. 


1 = 1+1 


PRINT  2670,PASSTR,(C0ST(J,I) ,J=1,4) 

2670  FORMAT (12X,20HSTRUCTURE  , Fll. i ,16X ,2 (Fll. 1 ,1X) , IX ,2( Fll. 

*1,  2X)  ) 

1 = 1+1 

PRINT  2660,  POCNKT,(COST <J,I),J=1,4) 

2680  FORMAT(12X,20HP0WEft  CONTROL  UNI.TS  ,F11. 1,16X,2(F11, 1,1X)  ,1X,2(F11. 

♦1, 2X ) ) 

C 

PRINT  9000 


1120  74 

791 

112074 

792 

112074 

79  3 

112574 

14 

112574 

15 

112574  , 

16 

112074 

794 

112074 

795 

112574 

17 

112574 

18 

11257.4 

19 

112574 

20 

121274 

4 

121274 

5 

112574 

23 

112574 

24 

112574 

25 

112574 

26 

112574 

27 

112574 

28 

112574 

29 

112574 

30 

112574 

31 

112574 

32 

112574 

33 

112574 

34 

112574 

35 

112  574 

36 

112574 

37 

112574 

38 

112574 

39 

112574 

40 

112574 

41 

112574 

42 

112574 

43 

112574 

44 

112574 

45 

112574 

46 

112574 

47 

112574 

40 

112574 

49 

112574 

50 

112574 

51 

112574 

52 

112574 

53 

112574 

54 

11257,4 

55 

112574 

56 

112574 

57 

112574 

58 

112574 

59 

112574 

60 

112574  . 

61 

112574 

62 

112074 

796 

112074 

797 

112074 

798 

-47 


970 


C 

c 

c 

c 


ENO-OF-PRINT  ROUTINE 

RETURN 

END 


112074 

112074 

112074 

112074 

112074 

112074 


799 

60Q 

eol 

802 

803 

.804 


vO 


SUBROUTINE  FILTER 


76/76  OPT=2 


FTN  V.  2+383 


03/27/75  21.38.21 


SUBROUTINE  FILTER (NCONF, ICOOE) 

FILTER  CHECKS  FCR  CCMPATIBLE  COM! 

A MINUS  1 IS  RETURNED  FCR  UNACCEPTABLE 
NCONF  IS  ARRAY  OF  CCNFIGURATIONS 
ICOOE  IS  CODE  RETURNED 


I I w I'  wwff*  n 

A MINUS  1 IS  RETURNED  F 
NCONF  IS  ARRAY  OF  CCNFI 
ICOOE  IS  CODE  RETURNED 
DIMENSION  NCCNF(6> 

COMMON  /USERl/  ALPHA, 
1 EA, 


OMEGR, 

PDOTST, 

PHIFOV, 

THETHX, 

XN, 

ZN 


TPRFL 


COMMON  /USER4/BWIDTH(2», 
1 NADIR, 


COMMON  /USERl/ 


I DEBUG, 
MICRO, 


APOGEE, 

EQMIHT, 

EQH2XL, 

ISATOR, 

RELME, 

XMER, 


AX, 

EANT, 

POOTAW, 

PDOTX, 

PHIRX, 

THOLD, 

XNN', 

AY, 

EPl, 

PDOTRX, 

PDOTY, 

PHIRY, 

TL, 

XNNN, 

AZ, 

K , 

POOTRY,  . 
PDOTZ, 
PHIRZ, 
TPMIN, 
XNU, 

OPHI, 

MANV, 

PDOTRZ, 

POOTO, 

TACCEL, 

7SMALL, 

YN, 

, 8TRMX, 

NMSEQ, 

OPSMS, 

SCSFL, 

FRE0(2), 

NET 

FREQR, 

lOPTCM, 

LINK, 

COMRAT, 

EQMIXL, 

EQM2YL, 

MB12SH, 

SPEC(6), 

XMEU 

OIAMAX, 

EQHIYL, 

EQM2ZL, 

OPTEMP, 

SPECl, 

EEQHT(9), 

EQMIZL, 

FE, 

ORBING, 

T, 

EPHE, 

EQH2MT, 

lAGNCY, 

PERI6E, 

XCGSAl, 

ICODE=0 
CHECK  S AND  C 

IF  (POOTRX  .LT.  .01  .ANO.  NCONF  (1)  .EQ.  1)  ICOOE  ==  -1 
IF  (PDOTRX  .LT.  .01  .AND.  NCONF(l)  . EQ.  3)  ICOOE=-l 
IF  (AMINKPHIRX.PHIRY  ,PHIRZ)  .LT.  .02  .AND.  NCONF(l)  , 
♦ ICOOE=-l 

MANEUVERABILITY  IS  MANV  AND  IS  VALUES  1-A 
IF  (MANV  .EQ.  4 .AND.  NCONFCi)  .EQ.  1)  ICOOE=-l 
PAYLOAD  YAM  IS  0 OR  1 

IF  (NCONF(l)  .EQ.  4 .AND.  NC0NFC3)  .EQ.-2I  ICOO 
lOPTCMIl)  IS  RAN6INGU=YES),ICPTCM(2)  ISSEPAR 
I0PTCM(3I  IS  SEPARATE  ANTENNA!  ^ . 

IF  (lOFTCM.GT.fl  .AND.  NCCNF C4 ) .EQ. 1)  ICOOE  = 

IF  (NCCNF(4)  .LE.  3)  GO  TO  45 
DO  43  1=1,11 


.21  ICOOE=-1 
IS  SEPARATE  LINK, ANO 


ICOOE  = -1 


DO  43  J=l,3 
IF  (ARRAYN(I,J> 
43  CONTINUE 
ICOOE=-l 
45  CONTINUE 

IF  (NCONF(5)  .El 
IF  (NC0NF(5)  .E 
IF  {NCCNF(5)  .El 
IF  (NC0NF(6)  .E 
RETURN 
END 


GO  TO 


.AND. 
. AND. 
• AND. 
.AND. 


NCCNFCl) 
NCCNFCl) 
NCONF (1) 
NCONFCI) 


ICOOE=-1 
ICOOE =-l 
ICODE=-l 
ICOOE  = -1 


NASA 

NASA 

NASA  , 

NASA 

NASA 

NASA 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

032475 

0 22575 

022575 

022575 

022575 

022575 

022575 

0 22575 

022575 

022575 

NASA 

NASA 

011675 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

032475 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA  . 

011675 

0.11675 

NASA 


9-49 


SUBROUTINE  REACOB 


76/76  OPT=2 


FTN  4.2+363 


03/27/75 


21.28.23 


5 

10 

15 

20 

25. 

30 

35 

40 

45 


SUBROUTINE  REA 008 (lENODQI  ^ 

C THIS  READS  THE  DATABASE  FOR  ONE,  SUBSYSTEM  AT  A TIME 

C lOB  IS  SET  AS  THE  DATABASE  IS  READ  BY  SCANNING  EQUIP  NUMBERS 

CIMENSION  STORE (55) 

COMMON  /DBCOM/DATA8 (55,100), 106(30 

^ DATA  STORE/5 5«0./ 

IF  (lEAOOB  .LE.  1)  GO  TO  2 
IF  (STOREd)  .EQ.  0.)  GO  TO  2 
00  1 4=1,55 

1 0ATASCJ,i)=ST0RE(4> 

1=2 

IOOLO?STORc(l)/lDO. 

1103=1 
GO  TO  3 

2 1=1 

ID OLD =0 
1103=1 

3 READ  (1,100)  (OATABtJ,  I)  ,4=1,55) 

IF  (EOFIi) )9fl,110 

100  FORMAT  <E5.0,A2,3A6b5E10.0;|,/.5  (8E1C.O,/),5E10.0) 
lie  IF  (lOCtO  .EQ.  8)  lOCLD  = DATABd.D/lOO. 

IO=aATAB(l,I)/100 • 
c TEST  FOR  Ini  of  subsystem 

IF  (ID  .LT.  lOGLD)  GO^TO  80 
C TEST  FOR  NEW  EQUIP  TYPE 

IF  (10  ,EQo  lOCLO)  60  TO  4 
I08C 1108)  = 1-1 
1108=1108+1  - - 
ID0L0=10 

4 1=1+1 

C ^H'ERE  WREN  SWITCHING  SUBSYSTEMS 

80  00  5 J=l,55 

5 STORE(J)=OATAB(J,I) 
lDa<IIOB)  = I-l 
IEM)D8=I-1 

RETURN 

90  00  6 4=1,55 

6 STORE(J)=0. 

IQe(IID8)=I-l 
REWIND  1 
IEN00a=I-i 
RETURN 

, ENO 


NASA 

1184 

NASA 

1185 

NASA 

1186 

NASA- 

1187 

022575 

294 

022575 

295 

NASA 

1189 

NASA 

1190 

NASA 

1191 

NASA 

1192 

NASA 

1193 

NASA 

1154 

NASA 

1195 

NASA 

1196 

NASA 

1197 

NASA 

119.8 

NASA 

1199 

NASA 

120.0' 

10-1574 

19 

101574 

20 

NASA 

1202 

1015.74 

21 

NASA 

1234 

NASA 

1205. 

NASA 

1206 

NASA 

1207 

NASA 

1208 

NASA 

1209 

NASA 

1210 

NASA 

1211 

NASA 

1212 

NASA 

1213 

NASA 

1214 

NASA 

1215 

NASA 

1216 

NASA 

1217 

NASA 

1216 

NASA 

1219 

NASA 

1220 

NASA  ■ 

1221 

NASA 

1222 

NASA 

1223 

NA.SA 

1224 

NASA 

1225 

NASA 

1226 

SUBROUTINE  SAVE 


76/76  OPT=2 


FTN  4.2+383 


03/27/75  21.38.24 


5 


10 

15 


20 


nO 

I 

Ui 

o 


25 


30 


35 


40 


45 

50 


C 

C 

C 

C 


SUBROUTINE  SAVE (Ilh.NIN, NOHAT.ITEST, lENDDB) 

THIS  SUBROUTINE  SAVES  ICHOSE.NCHOSE.ANO  ANY  PORTIONS  OF 
THE  DATABASE  REQUIRED  BY  LATER  SUBSYSTEMS  OR  ROUTINES 
ClffiNSION  IIN(15),NIN(15> 

COMMON  /OBCOM/OATAB(55tiOO) t I0B(3C)  . 


COMMON  /CHOSE/ 


1 

2 


C0ST(5.60> . 
NCMOSE(60>y 
THMC4,60) 


OPIA(ll*60)t 
REL  ( 6,60), 


ICHOSE(60) , 
SKO(7,60), 


COHMON/PRTCOM/  ACCRCY, 

AM, 

AN, 

BF, 

BS, 

COPI(7,2), 
ORZ WT  f 

CISTAfi, 

CTOT, 

ODTE, 

DE  , 

EGBSTR, 

FEEINV, 

FEEOPS, 

FEER, 

GSE, 

IREL, 

IT RUNG, 

MHO  OLD, 

NAHE(3,60) 

OPS, 

PAYINV, 

PAYQUL, 

PAYR, 

PE, 

PMP, 

PMR, 

POHER(6) , 

PU, 

PHR(60) , 

> QCP, 

QCF, 

R0LD(6Q), 

SABMHT, 

SATAOP, 

SATINV, 

SATR, 

SEIP, 

SEIR, 

SKTAU(6) , 

SSREL(6), 

SUBE  (7)  , 

SUBT(7) , 

SUaU£(7), 

SUBUP(7), 

1 TA, 

TAU  (6,6), 

TB, 

, TC, 

TE  , 

I TF, 

TOOLR, 

TOOLU, 

TOTOPS, 

TRUNC, 

1 TS, 

TTT, 

VOLUME(6)  , 

VQL(60) , 

HEIGHT (6)  , 

XLTOT, 

1 XMEH, 

DIMENSION  IDATA8(55,90) 

XMEH, 

XMEHT, 

XMEINV, 

XVEST 

XMEL, 

XMEVL, 

EQUIVALENCE  (10 AT AB,0 ATAB) 

CO  1 1=1, 1 TEST 
IF  <IIhCI)  .LE.  0)  60  TO  1 
ICHOSE{NOHAT)=IIKa) 
NGHOSE<NOWAT)=MK(I) 

DO  3 J=1,I£NOOB 

IF  (DATAB{1,J)  .NE.  IIN(D)  GO  TO  3 
CO  2 KKK=1,5 

COSTCKKK,NOWAT)=OATAB(45  + K|(K,  J) 

REU  l,NOWAT)=DATAB(23,J) 

00  4 KKK=2,6 

REL(KKK,NOHAT)=OATAB(3C+j(KK,JI 
DO  5 KK(<=1,11 

OPIA(KKK,NOWAT)=OATAB (29+KKK, J) 

THK( i, NOHAT) =DATAB (17, J) 

THH(2,N0 HAT)=OATA8(18|J) 
THH(3,NOHAT)=DATAB{27,J) 
THM(4,N0HAT)=0ATAB(2fl, J) 
SKO(1,NOHAT)=OATAB(46,J) 
SK0{2,N0HAT)=DATAB(47,J) 

DO  6 KKK=3,7 

<KD(KKK,N0WAT)=0ATAB(48+KKK,J) 

VQL  (NCHAT)  = 0ATAB<24,J> 

FHRCNOHAT)  = DATAB(16,J) 

DO  7 KKK=1,3 

NAME(KKK  , NOMAT ) =I DATAB (KKK+2 , J) 

CONTINUE 

NOWAT=NOWAT+l 

CONTINUE 


NASA 

1227 

NASA 

1228 

NASA 

1229 

NASA 

1230 

022575 

296 

022575 

297 

022575 

298 

022575 

299 

022575 

300 

022575 

301 

022575 

302 

022575 

303 

022575 

304 

022575 

305 

022575 

306 

022575 

307 

022575 

308 

022575 

309 

022575 

310 

022575 

311 

022575 

312 

0 22575 

313 

022  575 

314 

022575 

315 

111974 

33 

111974 

34 

NASA 

1234 

NASA 

1235 

NASA 

1236 

NASA 

1237 

NASA 

1238 

NASA 

1239 

NASA 

124  0 

NASA 

1241 

NASA 

1242 

NASA 

1243 

NASA 

NASA 

1244 

1245 

NASA 

1246 

NASA 

1247 

.NASA 

1248 

NASA 

1249 

NASA 

1250 

NASA 

1251 

NASA 

1252 

NASA 

1253 

NASA 

1254 

111874 

35 

111874 

36 

111874 

37 

111874 

38 

NASA 

1255 

NASA 

1256 

NASA 

1257 

55 


RETURN 

END 


SUMMARY  OF  CHANGES  MACE  BY  THE  OPTIMIZER 

13  WORDS  OF  INVARIANT  RLIST  REMOVED  FROM  THE  LOOP  BEGINNING  AT  LINE  33 
13  WORDS  OF  INVARIANT  RLIST  REMOVED  FROM  THE  LOOP  BEGINNING  AT  LINE  36 
13  WORDS  OF  INVARIANT  RLIST  REMOVED  FROM  THE  LOOP  BEGINNING  AT  LINE  38 
13  WORDS  OF  INVARIANT  RLIST  REMOVED  FROM  THE  LCOP  BEGINNING  AT  LINE 

REGISTER  ALLOCATION 

1 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT- LINE  33 
1 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  36 
1 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  38 
1 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  L6 


NASA  12 

NASA  12 


sO 

(jn 


Liun 


SUBROUTINE  THRNL 


76/76  0PT=2  . 


FTN  4.2+383 


03/27/75  21.38.26 


SUBROUTINE  THRML  (lERR.NCONF) 

COMMON  /USERl/  APOGEE, 

COMRAT, 

DIAMAX,  EE 

:qwt(9)  , 

EPME  , 

EQMIHT, 

V EQMIXL, 

EQMiYL, 

EQMIZL, 

EQM2MT  , 

EQH2XLi 

' EQM2YL, 

EQM2ZL, 

FE, 

lAGNCY, 

I0EBU6,  ISATOR, 

, . MB12SH, 

OPTEMP, 

ORBINC, 

PERIGE , 

MICRO,  RELME, 

'SPEC  (6)  , 

SPECl, 

T, 

XCGSA 1 , 

XMER, 

•'  XMEU 

COMMON  /BTWN/  ACSSN, 

ACSHP, 

ALT, 

AREA, 

BATCAP, 

BITRAT(2), 

CLIFE, 

CONVHT, 

D» 

DT  , 

DX, 

DY, 

oz, 

EQBLG, 

EQBSIO, 

FC, 

FF, 

HARNWT, 

HPT, 

HTPIPE, 

HTPT, 

HTRPRB, 

HTRPHR, 

IBTLOC, 

LHBOD, 

NC, 

0ME6S, 

PASSTR, 

PJ, 

1 PL, 

PLMIK, 

POCNHT, 

RADA, 

R A0A6 , 

RAT, 

RJ, 

SABOLG, 

SATLG, 

SATTMT, 

1 SATHT, 

SATXCG, 

SATYC6, 

SATZCG, 

SAIXL, 

1 SAIYL, 

SAIZL, 

SIDE, 

SYSLB, 

THCHHT, 

i THRUST(2), 

TI, 

TNKMT, 

TPRIM, 

VB, 

1 VCHP, 

VOL, 

HATE, 

MB, 

MB  1 , 

wtI 

XJ, 

XNZERO, 

YJ, 

Z j 

COMMON  /CHOSE/  C0ST(5 

,60)  , 

OPIA(11,60), 

ICHOSE(60) , 

NCHOSE(60), 

REL  ( 6,60), 

SK0(7, 

60), 

! THRM0e(4, 

60) 

DIMENSION  NC0NF(6) 

DATA  SIGMA/0.1 71AE-0e/»QS/442. fl/,EMISS/60 . 0/*AtBDO/155 .0/, CONST/1 . 

I* I** ***♦»♦*•♦»♦♦♦♦*♦ *»♦»»»*♦*** **♦***¥**♦*»♦♦ ♦**♦*♦+♦♦**»***♦♦*♦♦ 
*♦,*♦♦**♦*♦*»♦.*♦»*♦♦♦*♦♦♦♦**  «»*»<>»♦  *»♦♦*¥■*♦♦♦*»♦*♦♦♦♦♦***»♦*++♦»****♦+ 

♦*  SUBROUTINE  THRML  USES  A METHODOLOGY  FOR  SIZING  THE  THERMAL 
**  CONTROL  SUB-SYSTEM  FOR  A VARIETY  OF^SPACECRAFT.  THIS  MtTHOOOLOGY** 
♦*  DETERMINES  SIZE  AND  PERFCRMANCE  OF  THE  THERMAL  SUB-SYSTEM  ** 

*»♦♦***♦**»♦♦♦•♦**♦****♦♦»♦♦»*♦*•*»*♦*•#*****♦♦**♦*♦♦♦•♦*♦***♦**+**•*♦ 

JJ**$4i**2*l*****£*»5§J»***l**S*i:2»l*#*****»*****+*^*+*»****»+****++**» 

*♦  CODE  IS_AS^FOLLO«S^  BASE,  INT  s INTERNAL  ** 

**  0 = OUTPUT,  I = INPUT  FROM  MAIN  OR  OTHER  S/S 

♦*  VAR.  NAME  CODE  UNITS  IDEFAULT)  DESCRIPTION  ** 

** 

****************  ******************  *************************** 
**  ** 
**  AL0DO  INT  155  BTU/(HR*FT**2)  ALBEDO  ♦* 

**  ALPHA  INT  0.30  (DIMENSIONLESS)  CONV. RAO. CONST. ♦+ 

*♦  0.08  (DIMENSIONLESS)  OSR.  RAO. CONST.** 


155  BTU/(HR*FT**2) 


ALBEDO 


0.30 

0.08 


(DIMENSIONLESS) 

(DIMENSIONLESS) 


ALTITUDE 


NASA 

022575 

022575 

022575 

022575 

022575 

022575 

0 2.2575 

022575 

022575 

022575 

0 22575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

0 22575 

022575 

022575 

022576 

022575 

022575 

0 22575 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


REPRODUCIhtLuiTY  OP  THE 
ORIGINAL  PAGE  IS  POOR 


55 

C 

NASA 

1298 

C 

8V 

INT 

1.1 

voc 

MAX  BATT.VOLT.  ** 

NASA 

1299 

c 

NASA 

1380 

c 

CA 

INT 

0.5 

AMPS 

BATT  TRICKLE  ** 

NASA 

1301 

c 

NASA 

1302 

60 

c 

CONST  . 

INT 

1.5 

K CONSTANT  *♦ 

NASA 

1303 

c 

♦ ♦ 

NASA 

1304 

c 

EMISS 

INT 

60 

BTU/CHR*FT**2) 

EARTH  EMISSION  ** 

NASA 

1305 

c 

NASA 

1306 

c 

EPSLON 

INT 

0.75 

(OIMENSIOMESS) 

CONV, FAD. CONST. 

NASA 

1307 

65 

c 

0.73 

(DIMENSIONLESS) 

OSR.  RAO. CONST.** 

NASA 

1308 

c 

♦ ♦ 

«« 

NASA 

1309 

c 

ETAT 

INT 

XMTR  EFFICIENCY  ♦♦ 

NASA 

1310 

c 

** 

NASA 

1311 

c 

HPT 

0 

(BT U/HR) 

TOTAL  HEATER  POWER  ** 

NASA 

1312 

70 

c 

*♦ 

NASA 

1313 

c 

HTPIPE 

0 

(8TU/HR) 

HEAT  DUE  TO  H.P.  ** 

NASA 

1314 

c 

NASA 

1315 

c 

HTPT 

Q 

(BTU/HR) TOTAL  HEAT  PIPE 

NASA 

1316 

c 

NASA 

1317 

75 

c 

HTRPRB 

0 

(BTU/HR) BATT.  HEATER  POWER  *» 

NASA 

1318 

c 

♦ ♦ 

NASA 

1319 

c 

HTRPHR 

0 

(8TU/HR)0THER  HEATER  POWER  *♦ 

NASA 

1320 

c 

»* 

NASA 

1321 

c 

I 

INT 

INDEX  »* 

NASA 

1322 

80 

c 

** 

NASA 

1323 

c 

¥« 

IBTLOC 

I 

BATTERY  LOCATION  ** 

NASA 

1324 

\0 

r 

c 

«• 

NASA 

1325 

c 

ICCNF 

INT 

TYPE  OF  CONFIG.  *♦ 

NASA 

1326 

c 

ISATOR 

U 

1 

(DIMENSIONLESS) 

EARTH  ORIENTED  ♦♦ 

NASA 

1327 

85 

c 

2 

(DIMENSIONLESS) 

SUN  ORIENTED  ** 

NASA 

1328 

c 

3 

(DIMENSIONLESS) 

INERTIALLY  ORI.** 

NASA 

1329 

c 

9* 

NASA 

1330 

c 

4L# 

NC 

NUMBER  BATT  CEL** 

NASA 

1331 

c 

*♦ 

NASA 

1332 

90 

c 

NCONFCl) 

I 

S+C  MACRO  INDEX** 

NASA 

1333 

c 

NCONFf 6> 

I 

VS  MACRO  INDEX** 

NASA 

1334 

c 

NASA 

1335 

c 

ORBING 

U 

OEGREES 

ORBIT  INCLINAT.** 

NASA 

1336 

c 

♦ ♦ 

NASA 

1337 

95 

c 

PCM 

0 

KG 

PHASE  CHANGE  MASS  ** 

NASA 

1338 

c 

*• 

NASA 

1339 

c 

PIE 

INT 

3.1A159265 

CONSTANT 

NASA 

1340 

c 

NASA 

1341 

c 

** 

NASA 

1342 

100 

c 

PMAX 

INT 

(06) 

WATTS 

PWR  MAX  ** 

NASA 

1343. 

c 

♦ ♦ 

*♦ 

NASA 

1344 

c 

PMIN 

INT 

(OB) 

WATTS 

PWR  MIN  ♦♦ 

NASA 

1345 

c 

** 

NASA 

1346 

c 

QNAX 

INT 

(BTU/HR) 

MAX  PWR  OISSAP.** 

NASA 

1347 

105 

c 

♦ ♦ 

NASA 

1348 

c 

QHAXB 

INT 

(BTU/HR) 

BATT. POWER  MAXIMUM  ** 

NASA 

1349 

c 

NASA 

1350 

c 

QHIN 

INT 

(BTU/HR) 

MIN  PWR  OISSAP. ^>* 

NASA 

1351 

c 

*♦ 

NASA 

1362 

110 

c 

QMIN8 

INT 

(BTU/HR) 

BATT. POWER  MINIMUM  ** 

NASA 

1353 

c 

*9 

NASA 

1354 

115 


120 


125 


130 


135 


■«o 

140 

tfi' 


145 


150 


155 


160 


165 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

G 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


♦* 

QS 

INT 

A42.0  BTU/(HR*FT**2) 

SOLAR  CONST. 

NASA 

NASA 

99 

RADA 

0 

(FT**2) 

RADIATOR  AREA 

NASA 

99 

. 

NASA 

99 

99 

RA0A8 

0 

FT**2 

BATT. RAO. AREA 

NASA 

NASA 

99 
99  ' 

RAT 

0 

FT**2 

TOTAL  RAO.  AREA' 

¥4 

44 

NASA 

NASA 

99 

SATLG 

I,  (VS) 

INCHES 

SAT.  LENGTH 

44 

NASA 

99 

44 

NAS  A 

*9 

99 

SATRAD 

/ 

1 (VS) 

INCHES 

SAT.  RADIUS 

44 

44 

NASA 

NASA 

99 

99 

SIGMA 

INT 

0.1714E-8BTU/(HR*FT2*R4)  BOLTZMANN  CONST** 

NASA 

NASA 

«» 

** 

** 

*» 

** 

*9 


THRMOB 

TMAX 

TMAXB 

THIN 

THINB 

VCHP 


1 

INT  (OB) 
I NT 

INT  (OB) 
INT 


*9 

MAX  TEMPERATURE** 
** 
9* 
99 

MIN  TEMPERATURE** 

99 
99 

WAR. COND, HEAT  PIPE  J* 

99 

99 

^9^  999  99-9  99  9999  999  99  99  9999  999999  99999999  9 999  999  9 999  9999999999999  99  9 


THERMAE  DATA  BASE 
DEGREES  R 

BATT.  MAX.  TEMP. 
DEGREES 

BATT.  MIN.  TEMP. 


9999999999999999999999999999999999999999999999999999999999999999999999 


9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 


9 

9 

9 

9 

9 

9 


R 

A 

0 

A 

B 


0 

S 

R 

+ 

V 

c 

H 

E 

A 

T 

P 

I 

P 

E 


P 

C 

M 

M 

A 

S 

S 


I 

S 

0 

T 

H 

E 

R 

M 

A 

L 

I 

Z 

E 

R 


0 

I 

0 

0 

E 

H 

E 

A 

T 

P 

I 

P 

E 


H 

E 

A 

T 

P 

I 

P 

E 


0 

S 

R 

R 

A 

0 

I 

A 

T 

0 

R 


C 

0 

N 

V 

R 

A 

0 

I 

A 

T 

0 

R 


H 

E 

A 

T 

E 

R 

P 

0 

W 

E 

R 


R 

A 

0 

I 

A 

T 

0 

R 

A 

R 

£ 

A 


lERR  = ) 

WHERE 


0 

1 


MEANS  NO  SUCH  REQUIREMENT,  OR 
MEANS  WE  HAVE  THIS  REQUIREMENT- 


* 
♦ 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
. 9 
9 


999999999 9999999999999999999999999999999999999999999999999999999999999 

999999999  99999999  9999  9999  9 99  9999  9 999999  9 9 99  9 99  9999  9 9999  99  9 999  99-9999999 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


1355 

1356 

1357 
1350 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 
13  78 
13  79 
1380 
1361 
1382 
1363 

1384 

1385 

1386 
1367 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 
14l0i 
1411 


'J3 

I 

UI 


170 


175 


189 


185 


190 


195 


300 


205 


210 


215 


220 


225 


C 

c 

c 

c 

c 


«« 


10 

c 

c 

c 

c 


c 

c 


If.  9***  ********  *************** 

* 

INITIALIZATION  FOLLOWS  - • 

j^AOA-9. 

RA0A8=CI. 

RAT=fl.O 

HTRPMR-e. 

HTRPR3=8. 

HPT=0 . 

HTPIP£=0. 

VC HP* a. 
hTPT=0. 

TMAX=l.E+2fl 

THIM=-1.E20 

PHAX=B. 

FMIM=0,0 

ETAT=1.0 

1=0 

SATRA0-.5*0 

1=1+1 

SEARCH  FOR  HlNtHAX  TEHPI  ANO  HAX(HIN  TEHP) , AND  ^ 

ACCUMULATE  THE  POWER  (EXCLUDING  XMTRS  AND  BATTERIES! 

IF  aCHOSEnJ.LE.O)  60  TO  50 

IF  (I.EO.IBTLOC)  GO  TO  20 


TMAX=AMI Nl(TMAX,THRMOei3,I»> 

TMIN=AMAXl(TMlN,THRMOBCAiI)) 

FHIM=THRM0B(2,I)+PMIN 
PMAX=THRMD8(1,I)+PHAX 
GO  TO  10 

C **  HERE  IF  WE  HAVE  THE  BATTERY 
C 

20  TMIM8=THRMD8{4,I> +if60, 

THAXB=THRMDB  < 3 1 1! +460 . 

GO  TO  10 
50  CONTINUE 

QMIN=PMIN*3.41 

IF(PHAX**5  ,GT.  PMINl  PMAX=PMAX+,5 
QMAX=PHAX*3.41 
■ TMAX=TKAX+460. 

THIN=T MIN+460. 

ICONF=NCONF<6) 

C 

GO  TO  {60.70*80>.  ICCNF 

C **  SATELLITE  LENGTH  IN  INCHES  (MUST  CONVERT  TO  CM) (FROM  VS) 
C (CYLINDER) 

80  LNGTH=SATLG*2.54*0.75 

GO  TO  90 


** 
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NASA 
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1420 
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1A35 
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1441 
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1443 
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1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 
14€0 

1461 

1462 

1463 
14  64 

1465 

1466 

1467 

1468 


230 

235 

240 

245 

250 

\0 

I 

O'  255 
260 
265 
270 
275 
260 


C 

C 

70 

C 

C 

C 

80 

C 

C 

90 


100 


c 

c *♦ 

c 

c *♦ 
c 

110 


s 


* 


c 

c 

c 


« 


c 

c • 

c 


c 

c ** 
c ** 
c ** 

c 

120 


c 

c 

c 


« 


c 

c 

c 


* 


c 

c * 
c 

c 


SATELLITE  LENGTH  IN  INCHES  (MUST  CONVERT  TO  CMHFROM  VS) 
(BOX) 

LN6TH=SATLG*2. 54*0.75 
GO  TO  go 

SATELLITE  LENGTH  IN  INCHES  (MUST  CONVERT  TO  CM) (FROM  VS) 
(SPHERE) 

LNGTH=PI£*SATRAD*2.S4 


CONTINUE 

IF  (ALT. GT. 19000.  ) 60  TO  300 
IF  (ALT.LT.5C0.)  GO  TO  160 
GO  TO  (130tl009l00)»  ISATOR 
ICONF=NCONF(1) 

GO  TO  (120,120,110,110,110),  ICONF 

ORBITS  GT  500  BUT  LT  19000  AND, 
SOLAR  ORIENTED  ANO, 


3-AXIS  STA8ILIZE0 


(EQUATION  3.3. 1.1) 


ALPHA=0.3C 

EPSLON=0.75 

DETERMINE  RADIATOR  AREA 

RADA=QMAX/ (SIGMA*EPSL0N*TMAX**4- (EMISS*EPSLON) ) 

DETERMINE  HEATER  POWER 

HTRPHR=l,25*((SIGMA*EPSL(3N*RADA*TMIN**4)-(QMIN)-(EMISS*EPSLON)  ) 

DETERMINE  HEAT  PIPE 

HTPIPE=(QMAX*LN6TH)/3.41 

IERR=10111 

60  TO  380 


ORBITS  GT  500  BUT  LT 
SOLAR  ORIENTED  ANO, 
SPIN  STABILIZED 

ALPHA=0.3 

EPSLON=0.75 


19000  ANO, 

(EQUATION  3.3.1. 2) 


DETERMINE  RADIATOR  AREA 

RADA=QMAX/(SIGMA*EPSL0N*THAX*»4-(EMISS*EPSL0N) ) 

DETERMINE  HEATER  POWER 

HTRPWR=1.25*(( SIGMA*£PSL0N*RA0A*TMIN**4)-(QMIN)-(EMISS*EPSL0N) ) 


DETERMINE  HEAT  PIPE 
FTPIPE=( (QMAX*LNGTH)/3.41) 
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ui 
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C 
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C 

c 
c 
c 
c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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** 

** 

«# 


c 
c 
c 
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c 

c 

c 

c 

c 

c 
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c 

c 

c 

c 
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*9 
** 
• » 


IERR=1Q111 
GO  TO  380 

ICONF=NCONF(1) 

GO  TO  <140,148,150»150,150>,  ICONF 

ORBITS  GT  500  BUT  LESS  THAN  19000  ANO, 

EARTH  ORIENTED  ANO y 

SPIN  STABILIZED  {EQUATION  3. 4, 1.2) 

ALPHA=0.06 

EPSLON=8.73 

DETERMINE  RADIATOR  AREA 

RA0A=QMAX/{{S16HA*£PSL0N»THAX**4)-(QS*ALPHAn 
DETERMINE  HEATER  POWER 

HT{^HR=1.25*{{SIGHA*EPSLCN*RA0A*TNIN**4I-{Q«IN)) 
DETERMINE  PCM 

PCM=(a.28*ALPHA*QS^*RAOA*CONSt)/40* 

DETERMINE  HEAT  PIPE 

HTPIPE=CQHAX*LNGTH)/3.41 

lERR=:1001101i 
60  To  360 

ORBITS  GT  500  BUT  LESS  THAN  19000  AND, 

• EARTH  ORIENTED  AND, 

3-AXIS  STABILIZED  (EQUATION  3. 4. 1.1) 

ALPHA-0.  08 
EPa.ON=0.73 

DETERMINE  RADIATOR  AREA 

fiA0A=QMA  X/  ( (SIGMA*EPSLON  *tMAX*^»4,)-  <QS*ALPHA) ) 
DETERMINE  HEATER  POWER 

HTRPWR=1.25»{(SI6MA*EPSLCN*RA0A*T«IN**4>-{QMINI> 


DETERMINE  PCM 

PCM=C0,26*ALPHA*QS»RADA»CCNST)/40. 

DETERMINE  MEAT  PIPE 

HTPIPE=CQMflX*LNGTH)/3.41 

IERR=1 00 11011 
GO  TO  360 
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C 
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C 

C 
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C 
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** 


c 
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IF  (ORBINC.GT.30.)  GO  TO  230 
GO  TO  (170,200,200) t ISATOR 
ICCNF=NCONF(l) 

GO  TO  (160,180,190,190,190),  ICONF 

ORBIT  LT  500,  ORBITAL  INCLINATION  L£  30  DEGREES 
EARTH  ORIENTED  AND, 

SPIN  STABILIZED  (EQUATION  2, 1.2. 2) 

ALPHA==0.08 

EPSLON=0.73 

« DETERMINE  RADIATOR  AREA 

RAOA=QMAX/  ((SIGMA*EPSLCN»TMAX**4)-(EMISS»EPSL0N/PIE1 
1 PH  A/ PIE) 

» DETERMINE  HEATER  POWER 


ANOi 


C 
C 
C 
C 
C 
190 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 


c 

c 

c 


IE)) 

IERR=1011 
GO  TO  380 

■ ORBIT  LT  500,  ORBITAL  INCLINATION  LE  30  DEGREES  AND, 
**  EARTH  ORIENTED  AND, 

**  3-AXIS  STABILIZED  (EQUATION  2. 1.2.1) 

ALPHA=0,08 
EPSL0N=0.73 

‘DETERMINE  RADIATOR  AREA 
RADA=QMAX/  ((SIGMA*EPSL0N*TMAX*^'4)-(ALPHA»QS)) 

DETERMINE  HEATER  POWER 

HT.RPWR=1.25*((SIGMA*EPSL0N*RADA*T«IN**4)-QMIN) 

‘ DETERMINE  PCM  MASS 

FCM=(fl.26*QS*RA0A*ALPHA*C0NST)  /40. 

‘ DETERMINE  ISOTHEFMALIZER  HEAT  PIPE 

HTPIPE=(QMAX*LNGTH)/3.41 

IERR=11011011 
GO  TO  380 
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C 

c 

c •* 

c ** 
c ** 
c 
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C 
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c 

c 

c 

c 

c 
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C 
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C 


ICONF=NCONFa) 

GOTO  (210t2i0f 220f220«220) , ICONF 

CRBIT  LT  500,  ORBITAL  INCLINATIOK  LE  30  DEGREES  ANO, 
JUN  ORIENTED  ANO, 

SPIN  STABILIZED  (EQUATION  2, 1.1,2) 

ALPHA=0.08 

EPSLON=0,73 


.*  DETERMINE  RADIATOR  AREA 

RA0A=QMAX/C<SIGHA»EPSL0N*THAX*»4)-(EMISS*EPSL0N) -<,5*ALBD0*ALPHi 

* DETERMINE  HEATER  POWER 

HTRPWR=1.25*( (SIGMA*EPSLCN*RADA*TMIN**4) -QMIN) 

» DETERMINE  HEAT  PIPES 

HTPIP£=(QMAX*LNGTH)/3.41 

1ERR=10011 
60  TO  380 

CRBIT  LT  500,  OBITAL  INCLINATION  LE  30  DEGREES  ANO, 

SUN  ORIENTED  AND,  . .. 

3-AXIS  STABILIZED  (EQUATION  2. 1.1.1) 

ALPHA^O.OS 
EPSLON=0.73 

DETERMINE  RADIATOR  AREA 

RAOA  = QHAX/’  ((SIGMA»EPSLON*TMAX**4)-(EMISS»EPSLON)-(AL EDO* ALPHA)) 
DETERMINE  HEATER  POWER 

HTRPWR=1 . 25*( ( SIG  MA*E  PSLON*RAOA*TMIN^*4 ) -QMIN) 

DETERMINE  HEAT  PIPES 

KPIPE=(QMAX*LNGTH>/3.41 

IERR=10flll 
GO  TO  380 

HERE  IF  ORBING  GT  30 

GO  TO  (240,270,270),  ISATOR 
IC CNF=NCONF(l) 

GO  TO  (250,250,260,260,260),  ICONF 
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C 

C 

C ** 

c ** 
c 

350 

C 
C 
C 


ORBIT  LT  500jt  ORBITAL  INCLINATION  GT  30  DEGREES  AND, 
EARTH  ORIENTED  AND, 

SPIN  STABILIZED  (EQUATION  2. 2. 3.2) 

ALPHA  = ,08 
EPSL0N=.73 


C 

c 

c 


c 
c 
c 
c 
c 
260 

C 

C 

C 

c 

c 

c 

c 

c . 
c 

c 

c 

c 


c 

c 

c 

270 


* DETERMINE  RADIATOR  AREA 

RAOA=QMAX/ ( (SIGMA»EPSLOf 
1LPHA7PIE)) 

* DETERMINE  HEATER  POWER 


IERR=1011 
GO  TO  360 


C 
C 
C 

c 
c 

280 


*» 


ORBIT  LT  500.  ORBITAL  INCLINATION  GT  30 
EARTH  ORIENTED  AND, 

3-AXIS  STABILIZED 

ALPHA=.08 
EPSL0N=.73 


AND, 

(EQUATION  2. 2. .3.1) 


DETERMINE  RADIATOR  AREA 

RAOA=QMAX/  ((SI6MA*EPSL0N*7KAX»*4)-(ALPHA*QS)) 
DETERMINE  HEATER  POWER 

HTRPWR=1.25*  ((SIGMA*EPSL0N*RADA»TMIN**4)-QMIN) 

DETERMINE  PGM  MASS 

FCH=(0.26*QS*ALPHA*RADA»CCNST»740. 

DETERMINE  ISOTHERMALIZER  HEAT  PIPE 

HTPIPE=:(QMAX*LNGTH)/3.41 

IE RR= 110 11011 
GO  TO  380 


ICONF=NCONF(l) 

GO  TO  (260,280,290,290,290),  ICONF  . 

CRBIT  LT  500,  ORBITAL  INCLINATION  GT  ,30  ANO, 

SUN  ORIENTED  AND,  . ’ „ , 

SPIN  STABILIZED  (EQUATION  2.2. 2.2) 

ALPHA=.0  6 
EPSL0N=,73 
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OETERNINE  RADIATOR  AREA 

FA0A=QHAX/C(SIGMA*EPSLCN*TMAX**4»-(£MISS*£PSL0K)-(ALBDC*ALPHAI  ) 
QETERHINE  HEATER  POWER 


HTRPHR=l,25*((SIGMA*EPSL0N*RADA*TMIN®*4)”QMIN-(EMISS*EPSL0Nn  • 

DETERMINE  PCM  MASS 

FCM=( 0.26*ALPHA*ALeOO»RADA»CONST)/40. 

DETERMINE  HEAT  PIPES 

HTPIPE=(QMAX*LNGTH>/3.41 

IE RR=lfl0 11011 
GO  TO  380 

inclination  GT  30  DEGREES 

SUN  ORIENTED  AND* 

3-AXIS  STABILIZED  (EQUATION  2.2.2.11 

ALPHA=0.06 

EPSLON=0.73 

DETERMINE  RADIATOR  AREA 

RADA=aHAX/((SIGMA*EPSLON»THAX»»4)-(EMISS*ERSLON>-(ALBOO«ALPHA» ) 
DETERMINE  HEATER  POWER 

HTRPHR=l.Z5*(<SIGMA*EPSLON*RADA*THIN**A»-QMlN-<£MISS*EPSLON») 
DETERMINE  PCM  MASS 

FCM= (0,26*  ALPH  A*ALfiOO*RAD A*CONST ) /40 . 

determine  heat  PIPES 

HTPIPE=(QMAX*LNGTH>/3,41 

IERR=10Qllflll 
60  TO  380 

HERE  IF  ORBIT  GT  19000 
GOTO  (340.310,310) t ISATOR 
IC0NF=NC0NF(1) 

GO  TO  (320,320,330,330,330),  ICONF 

ORBIT  GT  19000  AND 
SOLAR  INERTALLY  ORIENTED  AND, 


SPIN  STABILIZED 


(EQUATION  1.1. 1.2) 
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1795 

NASA 

1796 

NASA 

1797 

NASA 

1798 

NASA 

1799 

NASA 

1800 

NASA 

1801 

NASA 

1802 

NASA 

1803 

NASA 

1604 

NASA 

1805 

NASA 

1606 

NASA 

1807 

NASA 

1608 

NASA  ' 

1809 

NASA 

1610 

570 
575 
5 80 
585 
590 

5 95 
600 

6 05 
610 
615 
620 


320 

flLPHA=0.30 

NASA 

1811 

EPSLON=fl.75 

NASA 

1812 

C 

NASA 

1813 

C * 

DETERMINE  RADIATOR  AREA 

NASA 

1814 

C 

NASA 

1815 

RADA=QMAX/ {SIGMA^EPSL 0N*TMAX*»4) 

NASA 

1816 

C 

NASA 

. 1817 

c ■-  * 

DETERMINE  HEATER  POWER 

NASA 

1818 

C 

HTRPWR=1.25«‘(CSIGMA*6PSL0K*RADA'»TMIN**4»-QM1N> 

NASA 

1819 

NASA 

1820 

c 

NASA 

1821 

c * 

DETERMINE  HEAT  PIPES 

NASA 

1822 

c 

NASA 

1823 

HTPIPE={QMAX*LNGTH)/3,41 

NASA 

1824 

c 

NASA 

1825 

IERR=10111 

NASA 

1826 

GO  TO  380 

NASA 

1827 

c 

NASA 

1826 

c ** 

CRBIT  GT  19000  AND, 

SOLAR  INERTIALLY  ORIENTED  AND 

NASA 

1829 

c ** 

**  NASA 

18  3.0 

c 

3-AXIS  STABILI2E0  (EQUATION  1.1.2) 

NASA 

18.31 

C-. 

NASA 

18,32 

330 

ALPHA==0.30 

NASA 

1833 

EPSLON=0.75 

NASA 

1834 

c 

NASA 

1835 

c * 

DETERMINE  RADIATOR  AREA 

NASA 

1836 

c 

NASA 

1837 

RA0A=(2.*QMAX)/(SIGMA*EPSL0N*THAX**4) 

NASA 

1838 

c 

NASA 

1839 

c ^ 

DETERMINE  HEATER  POWER 

NASA 

1840 

c 

HTRPWR=1,25* ( (SIGMA*EPSL0N*RADA*TMIN**4/2.) -QMIN) 

NASA 

NASA 

NASA 

NASA 

1841 

1842 

1843 

1844 

8 * 

DETERMINE  DIODE  HEAT  PIPE  <2  REG-D) 

1 

c 

NASA 

1845 

HTPIPE=(QMAX*LNGTH)/3.41 

1 

NASA 

1846 

c 

NASA 

1847 

IERR=110111 

NASA 

1848 

GO  TO  380 

NASA 

1849 

c 

NASA 

1850 

c 

NASA 

18S1 

c 

NASA 

1852 

340 

ICCNF=NCONF(l) 

NASA 

1853 

GO  TO  (350,360,370,370,360),  ICONF 

NASA 

1854 

C‘ 

NASA 

1855 

c *» 

ORBIT  GT  19000  AND, 

**  NASA 

1856 

c 

EARTH  ORIENTED  AND, 

♦*  NASA 

1857 

c ** 

DUAL  OR  NORMAL  SPIN  S TABILIZED  (EQUATION  1,2.3) 

NASA 

1858 

c 

NASA 

1859 

350 

ALPHA=0.30 

NASA 

I860 

EPSL0N=fl.75 

NASA 

1861 

C 

NASA 

1862 

c * 

DETERMINE  RADIATOR  AREA 

NASA 

1863 

c 

NASA 

1864 

RAOA=QMAX/  (SIGMA*EPSL  0N*TMAX^^*  A) 

NASA 

1865 

c 

NASA 

1866 

c * 

DETERMINE  HEATER  POWER 

NASA 

1867 

BEPROBUeiBILITY  OP  THE 
ORIGINAL  PAGE  IS  POOR 


625 

630 

635 

6'tO 

645 

650 

sD 

1 

O' 

W 

655 
660 
665 
670 
6 75 
680 


c 

NASA 

1868 

HTRPHR=1 . 25* ( ( SI6MA*EPSL  0N*RA0A*TMIN**4) -QMIN) 

NASA 

1869 

c 

NASA 

1870 

c 

DETERMINE  HEAT  PIPES 

NASA 

1871 

c 

NASA 

1872 

HPIPE=(QMAX*LNGTH)/3.41 

NASA 

1873 

c 

NASA 

1874 

IERR=10111 

NASA- 

. 1875 

GO  TO  360 

NAS:A 

1076 

c 

NASA 

. 1877 

c 

ORBIT  GT  19000  AND 

*»  NASA 

187  8 

c 

YAH  SPIN  STABILIZED 

(EQUATION  1.2.2) 

**  NASA 

187,9 

c 

NASA 

lee'o 

360 

ALPHA=0. 08 

NASA 

1881 

EPSLON=0.73 

NASA 

1882 

C 

NAS'A 

1883 

C 

DETERMINE  RADIATOR  AREA 

NASA 

1864 

C 

NASA 

1885 

RAOA=QKAX/  (<SIGMA*EPSLGN*TKAX* ’4  )- <QS*ALPHA/P1E) ) 

NASA 

188.6 

C 

NASA 

1807 

C 

♦ 

DETERMINE  HEATER  POWER 

NASA 

1,68  0 

C 

NASA 

18  89, 

HTRPMR=1,25*C{SI6MA*EPSL0N»RADA*TMIN**4)-QMIN) 

NASA 

1890 

C 

NASA 

1891 

IERR=1011 

r 

• NASA 

1892 

GO  TO  380 

NASA 

1893 

C 

NASA 

1894 

c 

CRBIT  GT  19000  AND, 

**  NASA 

1895 

c 

EARTH  ORIENTED  AND, 

**  NASA 

18  96 

c 

3-AXIS  STABILIZED 

(EQUATION  1.2.1) 

**  NASA 

1697 

c 

NASA  ■ 

1898 

370 

ALPHA  = Q.30 

NASA 

1899 

EPSLON=0,75 

NASA 

1900 

C 

NASA 

1901 

C 

DETERMINE  RADIATOR  AREA 

NASA 

1902 

C 

NASA 

19,03 

SA0A=(2.*QMAX>/(SIGMA*EPSL0N*TMAX**4) 

NASA 

1904 

C 

NASA 

1905 

c 

.V 

DETERMINE  HEATER  POWER 

NASA 

1906 

c 

* 

NASA 

1907 

HTRPHR=1,25* (tSlGMA*EPSLON*RAOA*T«lN**4/2,)-QMIN) 

NASA 

1908 

c 

NASA 

1909 

c 

DETERMINE  DIODE  HEAT  PIPE  <2  REG-0) 

NASA 

1910 

c 

NASA 

1911 

HTPIPE=(QMAX»LNGTH)/3.41 

NASA 

1912 

c 

NASA 

1913 

IERR=110111 

NASA 

1914 

GO  TO  380 

♦ 

NASA 

1915 

c 

NASA 

1916 

c 

HERE  HE  WILL  SIZE  THE  BATTERY  THERMAL  CONTROL  NETWORK 

NASA 

1917 

c 

NASA 

1918 

c 

NASA 

1919 

c 

NASA 

1920 

380 

CA=.5 

NASA  ' 

1921 

BV=li5 

NASA 

1922 

ALPHA=0.08 

NASA 

1923 

EPSLON=0.73 

NASA 

1924 

6 65 


690 


695 


700 


705 


vO 

T 710 


QHAX8=NC^CA*8V^3.41 

NASA 

1925 

QMIN8=0. 

NASA 

1926 

c 

NASA 

1927 

c 

DETERMINE  RADIATOR  AREA  FCR  BATTERY 

NASA 

1926 

c 

NASA 

1929 

RAOA8=QMAX8/{CSIGMA*EPSLON*(TMAXB-30,)*<‘4>-(QS*ALPHA) ) 

NASA 

1930 

c 

NASA 

1931 

c 

♦ 

DETERMINE  HEATER  POWER  FCR  BATTERY 

NASA 

1932 

c 

NASA 

1933 

c 

NASA 

1934 

HTRPR8=1.^5•(SIGMA♦EPSLO^«RA0A•6*(TMIN8)♦*4-QMIN8) 

NASA 

1935 

c 

NASA 

1936 

c 

DETERMINE  VARIABLE  CONDUCTANCE  HEAT  PIPE 

NASA 

1937 

c 

NASA 

1938 

VCHP=QMAX8»LNGTH/3.41 

NASA 

1939 

IE  RR==  I ERR+ 11 0 0 0 0 0 0 0 0 

NASA 

1940 

c 

NASA 

1941 

c 

NASA 

1942 

c 

NASA 

1943 

HTPIPE  = HTPIPE  / 2.54 

NASA 

1944 

WCHP  = VCHP  / 2.54 

NASA 

1945 

RAT=RAOA«RAOAB 

NASA 

1946 

HPT=HTRPWR+HTRPRB 

NASA 

1947 

HTPT=HTPIP£+VCHP 

NASA 

1948 

c 

NASA 

1949 

c 

NASA 

1950 

RETURN 

NASA 

1951 

c 

NASA 

1952 

END 

NASA 

1953 

SUBROUTINE  COMM 


76/76  OPT=Z 


FTN  4.2*363 


03/27/75  21.38.29 


KCH0S£C11).PH(2) .ISPFt6(2) .J2SAVE(2) 

DIMENSION  SIGNOKZULHARG^Zt  ,TCL0SS$2) , GT  (2)  .MOOXCZ) 
DIhCNSION  BER< 14*  3) *IB£R  (14) .BESSJ (2) , lIMPIC(9) 

COmON  /USER4/BWI0TH(2),  FREaX(2),  FREQR,  lOPTCM, 

NADIR,  NET 


& 

COMMON  /USERI/ 
L 


APOGEE, 
EQHIMT, 
EQM2XL* 

3 IDEBUG,  SEO, 

4 MICRO,  RELNE, 

3 XMEfi, 

COmON  /BTMN/  ACSSN, 

L BITRAT(2), 

2 OX, 

3 FC, 

4 HTPT, 

3 LHBOD, 

3 PL, 

r RAT, 

8 SATHT, 

3 SAIYL, 

1 THRUST(2>, 

3 VCHP, 

: NT, 


COMRAT, 

EQMIXL, 

EQH2YL, 

m112SH, 

SPEC(6>, 

XMEU 

ACSHP, 

CLIFE, 

DY, 

FF, 
HTRPRB, 

NC, 

PLMIN, 

RJ, 

SATXCG, 

SAIZL, 

TI, 

VOL* 

XJ, 


OIAMAX,  EEQNT(9), 
EQMIYL,  EQMIZL, 
EQM2ZL,  FE, 


cuniT  I., 

EQM2ZL, 

OPTEMP, 

SPECl, 


ORBINC^ 

XDUHl, 


LINK, 

EPME, 

EQM2HT, 

lAGNCY, 

PERIGE, 

XCGSAl, 


NASA 

NASA 

NASA 

NASA 

021375 

NASA 

NASA 

032475 

022575 

022575 

0 22575 

022575 

022575 

0 22575 

0 225.75 

0 22.575 


022575 

ALT, 

AREA, 

BATCAP, 

022575 

CONVWT, 

0, 

DT, 

0 22575 

OZ, 

EQBLG, 

EQBSIO, 

022575 

HARNWT, 

HPT, 

HTPIPE, 

022575 

HTRPHR, 

IBTLOC, 

0 22S75 

ONEGS, 

PASSTR, 

PJ, 

022575 

POCNMT, 

RADA, 

' RAOABj 

022575 

SA BOLG* 

SATLG^ 

SATTHT, 

022575 

SATYCG, 

SATZCG, 

SAIXL, 

022575 

SIDE, 

SYSL8, 

THCMHT, 

022575 

TNKHT,' 

TPRIM, 

VB, 

022575 

HATE, 

HB, 

HBT, 

022575 

XNZERO, 

YJ, 

ZJ 

022575 

022575 

022575 

022575 

*2*.* 768.  * 

IT4/13/, 

lO/,IR3/1 


I <3  / 

GO  TO 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

021375 

021375 

NASA 

NASA 

NASA 


9-66 


55 


60 


65 

70 

75 

80 

85 

90 

95 

100 

1G5 

110 


AND.  IPIC(4»  .EQ.  0)1C=0 


,0C1  * BITf^AKI) 


SSS  = 1 


INX=2 


ICC=1 


FW<1»  = 0. 

PM(2>  = 0« 

ISPFLG(l)  = 0 
ISPFLG(2)  = 0 
3 IF  (ITER  .EQ.  0 
NCONF  = MCONF{4> 

CO  1 1=1.2 
1 BITRAT(I)  = 

sss=o 

IF  CMCCNFIl) .EC.l) 

INX=1 

IF  (NCONF. EQ.i*. OR. NCONF. EG. 5) 

C INITIALIZATION  OF  IPIC  AND  I CHOSE 
ICC=IC+1 

IF  (ITER.NE.O)  ICC=1,  , , . 

IF  (ITER.EQ.C  .AND,  IPIC (4) . 6T.0) 

CO  10  I=ICCf9 
10  KCHOSE(I)=fl 

00  20  1=1,9 
»yp / Tl=TPTC(I) 

20  IF  (ITER. EQ.O. AND. IPiC(I).EQ.O)  KPIC (I) =RESET( I) 

F1=0  • 

IF  (NCONF  .EQ.  2 .OR.  NCONF  ,EQ.  4)F1=1. 

(FI  .EQ.  0. > KPIC(9)=0 
(Fi  .EQ.  1.)  KPIC(6)=0 
(ITER.NE.O)  IC=0 
(IPIC(4)  .NE.  0)  IC=0 
(IC.NE.fl)  GO  TO  700 
LIMPIC(1)=ID8(1> 

LIMPIC(2)=ID8(2) 

LIMPIC(3)=I0B(2) 

LIMPIG(4)=IDB(3) 

LIMPIG(5)  = I08(3>, 

' LIHPIC(6)  = IDB(2)  . 

LIWIC(7)  = I0B(4) 

LIMPIC(8>=ID8(5) 

LIMPIC(9)=ID8(6) 

CALL  BESS  (BETA, BESS J,l) 

IF*^(NC0NF.GE.4.0R.BITRAT(2)  .EQ.O)  60  TO  40 
BITRAT(1)=(BITRAT(1)*QITRAT(2)  )*1.3 
40  CONTINUE 


IF 

IF 

IF 

IF 

IF 


RATE1=I8ER(1) 

RATE 2=0 
DO  50  1=1,13 
IF  (BITFATd) 

IF  (BITRAT(2) 

50  CONTINUE 

eiTRAT(l)=RATEl 
BITRAT(2)=RATE2 
IF  (NCONF. EQ.l) 

IE  RR^  1 

IF  (LINK. EQ.O)  GO  TQ77Q 


GT.IBER(D)  RATEl=IBER(I+il^ 
.GT.  IBER(I))  RATE2  = IBER(I+1) 


GO  TO  90 


SGLS  B0AU  SELECTED 
I£RR=0 
IC=1 

ONE  HOUSKEEPING  BIT 


STREAM  ONLY  (THIS  SEMESTER) 


021275 

.2 

021275 

3 

021275 

4 

021275 

5 

NASA 

1990 

NASA 

1591 

NASA 

1992 

NASA 

1993 

NASA 

1994 

110174 

. 1 

NASA 

1996 

NASA 

1997 

NASA 

1598 

NASA 

1559, 

NASA 

2000 

0 20  675 

1 

NASA 

2001 

NASA 

2002 

NASA 

2003 

NASA 

2004 

NASA 

2005 

NASA 

2006 

NASA 

2007 

NASA 

2008 

NASA 

2009 

NASA 

2010 

0 20  675 

2 

NASA 

2011 

NASA 

2012 

NASA 

2013 

NASA 

2014 

NASA 

2015 

NASA 

2016 

NASA 

2017 

NASA 

2018 

NASA 

2019 

NASA 

2020 

NASA 

2021 

NASA 

2022 

NASA 

2023 

NASA 

2024 

NASA 

20  25 

NASA 

2026 

NASA 

2027 

NASA 

2028 

NASA 

2029 

10157.4: 

22 

101574 

23 

NASA 

2031 

NASA 

2032 

NASA 

2035 

NASA 

2036 

010675 

21 

NASA 

2038 

NASA 

2039 

NASA 

2040 

NASA 

2041 

9-67 


115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 


C 1 IS  SGLS  2 IS  USB 

NASA 

2042 

60 

IF  (DATAB(IB1,J1)  .EQ.l)  GO  TO  70 

NASA 

204  3 

J1=J1+1 

NASA 

2044 

IF  (Jl.GT. 108(1))  GO  TO  760 

NASA 

2045 

GO  TO  60 

NASA. 

2046 

70 

IF  (BITRAT(l).GT.  128.)  GO  TO  80 

NASA 

20  47 

IF  (ABS(OATAB(I82,J1)-1.024)  .LT.  .01)  GO  TO  690 

NASA 

. 2048 

J1=J1+1 

NASA 

2049 

IF  ( Jl.GT. 10S( 1) ) GO  TO  760 

NASA 

2050 

60  TO  60 

NASA 

2051 

80 

IERR=2 

NASA 

2052 

IF  (BITRAT(1).NE.256)  GO  TO  770 

NASA 

2053 

IERR=0 

NASA 

2054 

IF  (OATABdBE,  JD..EQ.1.7)  60  TO  690 

NASA 

2055 

J1=J1+1 

NASA 

2056 

IF  (Jl.GT.IOBd)  ) GO  TO  760 

NASA 

2057 

GO  TO  60 

NASA 

205  8 

C END 

OF  B8AU  SELECTION 

NASA 

2059 

90 

IC=2 

NASA 

20  60 

KXHTR=1 

NASA 

2061 

GO  TO  110 

NASA 

20  6 2 

100 

IC=3 

NASA 

2063 

KXtiTR=2 

NASA 

2064 

110 

CONTINUE 

NASA 

2065 

C 

NASA 

2066 

C ANTENNA  SELECTION 

NASA 

20  67 

J2=KPIC(IC) 

NASA 

20  68 

IF  (ISFFLG(KXMTR)  .EQ.  1)  GO  TO  251 

021275 

. 6 

IF  CSEO  .NE,  1)  GO  TO  250 

021075 

2 

IF  (SSS.EQ.O)  GO  TO  160 

NASA 

2070 

IF  (ALT. GT. 12000)  GO  TO  140 

NASA 

2071 

C OMNI  (B  OHNI) 

NASA 

2072 

120 

IF  (OATABdAl,  J2)  .EQ.ll.  ) GO  TO  299 

021175 

1 

J2=J.2+1  ' 

NASA 

2074 

IF  ( J2.GT. IDB<2) ) GO  TO  760 

NASA 

2075 

GO  TO  120 

NASA 

2076 

140 

1ERR=30 

NASA 

2083 

IF  (ALT  .GT,  20000.)  GO  TO  770 

011676 

33 

1ERR=0 

NASA 

2085 

C BICCMCAL  CA) 

NASA 

2088 

150 

IF  (OATABdAl, J2).EQ. 21.)  GO  TO  299 

021175 

2 

J2=J2+1 

NASA 

2090 

IF  (J2.GT.IDB(2) ) GO  TO  760 

NASA 

2091 

GO  TO  150 

NASA 

2092 

160 

IF  (ALT.GT.7C00)  GO  TO  210 

NASA 

2093 

IF  (NADIR. EQ.D)  GO  TO  190 

NASA 

2094 

C 

CONICAL  SPIRAL  (F2) 

NASA 

2097 

180 

IF  (OATABdAl,  J2)  .EQ. 41.  ) GO  TO  299 

021175 

3 

J2=J2+1 

NASA 

2099 

IF  (J2  .GT.  IDBC2))  GO  TO  760 

NASA 

<100 

GO  TO  180 

021175 

4 

190 

IF  (GRP  .EQ.  0.)  GO  TO  180 

0 21176 

5 

C HONCfOLE  (FI) 

NASA 

2105 

200 

IF  (OATABdAl,  J2)  .EQ. 51.  ) GO  TO  299 

0 21175 

6 

J2=J2+1 

NASA 

2107 

IF  (J2  .GT.  IDE(2>)  GO  TO  760 

NASA 

2108 

GO  TO  200 

NASA 

<109 

170 


175 


180 


165 


190 


205 


210 


215 


220 


225 


210  IF  (ALT  .GT,  12000.)  GO  TO,  230 
HELIX  (F3) 

220  IF  (OATABCIAl,  J2).EQ.  31.  ) GO/ TO  299 
J2=J2+1  / 

IF  ( J2.GT.ID8(2>)  GO  TO  76^ 


C 

c 


c 

c 


GO  TO  220 

230  IERR=3Q  >\\  / 

IF  (ALT  .GT.  20000.)  GOVTO  770 
IERR=0  \ 

PAPABOLA  (8  HIGH  GAIN) 

2A0  IF  (OATABdAl,  J2)  .£Q.  1.)  GO  TO  299 
J2=J2+1 

IF  (J2.GT.I08(2) ) GO  TO  760 
GO  TO  240 

STEEFABLE  PARABOLA  OPTION  WILL  BE  INCLUDED  NEXT  SEMESTER 

250  IF  (ISPFLG  (KXHTR)  .EQ.  1)  GO  TO  251 
IF  (ALT  .LE.  12000.)  GC  TO  120 

IF  (BITRAT (KXMTR) .LT.  10)  GO  TO  120 

251  lERR  = 1001 

255  IF  (OATABdAl,  J2>  .EQ.  1.)  GO  TO  299 
+ ■ 


IF  (J2  .GT.  ID8(2))  GO  TO  760 
GO  TO  255 

195 

260 

KXMTR=1 

GO  TO  280 

<T- 

270 

KXMTR=2 

00 

200 

280 

CONTINUE 

LUNI=0 

IF  (NCONF.GT.l. AND. KXMTR. EQ.l)  LUNI=1 

C 

C 


LOSS 

IF  (SLANT. EQ.-l.E+lO)  SLANT=SQRT (APOGEE* (APOGEE+6880) > 
SL OSS=37.8*23*ALOG10(FREQX (KXHTR)* SLANT) 


C G TO  T I 

IF  (GTOT.NE.-l.E  + lQ)  GO  TO  320^  ^ 

IF  (GR.NE.-l.E+lC.ANO.T.NE.-l.E+lO)  GO  TO  310^ 
IF  (NF.NE. -I.E+IO.ANO.GR.NE.-I.E+IO)  GO  TO  300 
C NET.EQ.O  FOR  AFSCF  NET.NEiC-  FOR  NASA 
IF  (NET.EQ.O)  GO  TO  290 
GR=44 
T=17D 
GO  TO  310 
290  6R=47.5 

T=  220 
GO  TO  310 

299  GT (KXMTR)  = 0 AT A8 (ITl , J2 ) 

GO  TO  69C 

300  T=(10.** (NF/10)-1)*290. 

310  GTOT  = GR-10*ALOG10  (T) 

320  CONTINUE 
C 

C TRANSMITTER  CIRCUIT, LOSS  • 

IF  (TCLOSS  (KXMTR)  .NE. 0)  GC  TO  330 


NASA 

2110 

NASA 

2111 

NASA 

2114 

021175 

7 

NASA 

2116 

NASA 

2117 

NASA 

2118 

NASA 

2119 

011675 

34 

NASA 

2121 

NASA 

2122 

NASA 

2125 

021175 

a 

NASA 

2127 

NASA 

2128 

NASA 

2129 

NASA. 

2130 

NASA 

2131 

021275 

7 

021276 

6 

021075 

3 

021275 

9 

021175 

9 

021075 

a 

021075 

9 

021075 

■ 10 

NASA 

2135 

NASA 

2136 

NASA 

2137 

NASA 

2130 

NASA 

2139 

NASA 

2140 

NASA 

21A1 

NASA 

2142 

NASA 

21A3 

NASA 

2144 

NASA 

2145 

NASA 

2146 

NASA 

2147 

NASA 

2148 

NASA 

2149 

NASA 

2150 

NASA 

2151 

NASA 

2152 

NASA 

2153 

NASA 

2154 

NASA 

215  5 

NASA 

2156 

NASA 

2157 

021175 

10 

021175 

11 

NASA 

2158 

NASA 

2159 

NASA 

2160 

NASA 

2161 

NASA 

2162 

NASA 

2163 

sO 

I 

O' 

vO 


230 
235 
2<»0 
245 
250 
255 
2E0 
2 65 
270 
275 
280 


TCI_QSS  (KXMTR)  ~ 1 0 

IF  (LUNI.EQ.iTaND. (NC0NF.EQ.2.OR.NGONF, EQ,41I  TCLOSStKXHTR)=i. 5 
330  CONTINUE 
C 

C MODULATION  LOSS 
MOOLOS=fl  . 

IF  (LUNI.FQ.O)  GO  TO  340 
IERR=10 

IF(LINK. EQ.0)GO  TO  770 

lll^s  Q 

C BESSJ<2I=J1(BETA)  / BESSJ(il=J0 (BETA) 

MOXOS=ABS(10*ALOG10(2'^(aESSJ(2)*COS  (GAMMA)  )**2) ) 

340  CONTINUE 
C HARDWARE  0E6RDATI0^  LOSS 

IF  (LUNI.EQ.I)  GO  TO  360 
DO  350  1=1.14 

IF  (BITRATIKXHTR)  .EQ.  IBER(I))  HDLOSS  = BER(I,3) 

350  CONTINUE 
GO  TO  380 
360  IERR=10 

IF  (LINK  .EQ.  O GO  TO  770 

IERR=0 

]K— 2 

IF  (0ATAB(IB2f Jl) .EQ. 1.024)  IK=1 
DO  370  I=l»14 

IF  (BITRATd)  .EQ.  I0ER(I)»  HDLOSS  = BER(I,IK) 

370  CONTINUE 

380^*^°IF°(BMIOTH?KXMTR)  .EQ.-i.E+lO)  BH IDTH  (KXMTR)  =BITRAT  (KXMTR)^IOOO 
a=lfl*ALOG10(BHIOTH(KXMTR)) 

C 

c (KXMTR) +SLOSS+B-GTOT+LMARG (KXMTR)  «-TCLOSS (KXMTR) +POLOSS+A 

lNTLOS+MOOLOS+HDLOSS-228.6,  . 

PW(KXMTR)  = 10.  **((ERP-GT(KXMTR))/10.) 

PRINT  385,  KXMTR, PW  (KXMTR) 

385  FORMAK  4H  PH(,I1,4H)  = ,£11.4) 


C 

C 


TRflN<;MTTTPB  <?PLFnTION  9**9*^************  ****’^***•^**********•^  ******* 

^ IF(PH(KXMTR).LT.20.  .OR.  OATABdAl,  J2)  . EQ.l.)  GO  TO  388 
IC  = KXMTR  4 1 
TSPFLG  IKXMTPI  — 4. 

IF  (d2SAVE(KXMTR) *GT.  0 .AND,  ITER.EQ.fl)  J2  = J2SAW£(KXMTR) 

GO  TO  250 
388  KNSTRA  = 0 
lC=KXMTR+3 
J3=KPIC(IC) 

390  IF  (LUNI.EQ.C)  GO  TO  440 
400  IF  (OATABdTl,  J3)  .EQ.l)  GO  TO  410 
J3=J3+1 

IF  (J3.GT. 108(3))  GO  TO  760 
GO  TO ' 400 

410  IF  (OATAB(IB3, Jl) .EQ.O)  GO  TQ  420 
KNSTRA=1  ' 

IF  (OATAB(IB3, Jl) .EQ.OATA0(1,J3) ) GO  TO  460 
J3=J3+1  / 

IF  (J3.GT.IDB(3)  ) GO  TO  76[|' 


NASA 

2164 

NASA 

2165 

NASA 

2166 

NASA 

2167 

NASA 

2168 

NASA 

2169 

NASA 

2170 

NASA 

2171 

010.675 

22 

NASA 

2173 

NASA 

2174 

NASA 

2175 

NASA 

2176 

NASA 

2177 

NASA 

2178 

NASA 

2179 

101574 

24 

101574 

25 

NASA 

2181 

NASA 

2182 

011475 

18 

NASA 

2164 

NASA 

2185 

NASA 

2186 

NASA 

2187 

101574 

26 

101574 

27 

NASA 

2189 

NASA 

2190 

NASA 

2191 

NASA 

2192 

NASA 

2193 

NASA 

2194 

NASA 

2195 

021275 

10 

021275 

11 

021275 

12 

NASA 

2197 

NASA 

219  8 

021275 

13 

021175 

13 

021275 

14 

021375 

M 

021175 

14 

021175 

15 

NASA 

.2200 

NASA 

2201 

NASA 

2202 

NASA 

2203 

NASA 

2204 

NASA 

2205 

NASA 

2206 

NASA 

2207 

NASA 

2203 

NASA 

2209 

NASA 

2210 

NASA 

2211 

GO  TO  400 

NASA 

2212 

420 

IF  (DATAB(IT2, J3) .EQ.OJ  GO  TO  430 

NASA 

2213 

265 

J3=J3+1 

NASA 

2214 

IF  (J3.GT,IDe<3> > GO  TO  760 

NASA 

2215 

60  TO  400 

NASA 

2216 

430 

IF  (OATAa(IB2,Jl).EQ.DATA8(IT3,J3) ,ORoOATA8(IB2, Jl) 

101574 

26 

i 

► .EQ.  DATAB(IT4.J3))  GO  TO  460 

NASA 

2218 

290 

J3=J3fl 

NASA 

2219 

IF  (J3.GT.  ID8(3>)  GO  TO  760 

NASA 

2220 

GO  TO  ,400 

NASA 

2221 

440 

CONTINUE 

NASA 

2222 

C NON' 

UNIFIED  TRANSMITTER 

NASA 

2223 

295 

450 

CONTINUE 

NASA 

2224 

IF  {BITRAT<KXMTR)/1000.LE.DATA8(IT6,J3))  GO  TO  460 

NASA 

2225 

J3=J3+1 

NASA 

2226 

IF  (J3.GT.IDB(3>)  GO  TO  760 

NASA 

2227 

GO  TO  450 

NASA 

2228 

300 

460 

IF  (LINK.EQ.O)  GO  TO  470 

010675 

23 

IF  (0ATAB(IT5,J3)  .EQ.  1.)  GO  TO  470 

NASA 

2230 

J3=J341 

NASA 

2231 

IF  U3  .GT.  I0B(3))  GO  TO  760 

NASA 

2232 

GO  TO  440 

NASA 

2233 

305 

C FREQUENCY. POWER. AND  MOOULATICN  COMPATieiLIT Y 

NASA 

2234 

470 

IF  (FREQX(KXHTR) .GE.D ATAB UT7« J3) . AND. FREQX (KXHTR) .LE. OATAB (ITS. J3 

NASA 

2235 

1)1  GO  TO  480 

NASA 

2236 

J3=J3+1 

NASA 

2237 

IF  (J3  .GT.  IOe(3))  GO  TO  760 

NASA 

2238 

310 

GO  TO  390 

NASA 

2239 

•0 

460 

IF  IPW(KXMTR)  .LE.  DAT A8  (IT9, J3) > GO  TO  490 

0 21275 

15 

o 

J3=J3+1 

NASA 

2241 

IF  (J3  .GT.  I0B(3})G0  TO  760 

NASA 

2242 

GO  TO  390 

NASA 

2243 

315 

C MODULATION  PHASE=1  . FREQUENCY=2.  AMPL1TU0E=3  . 

NASA 

2244 

490 

IF  CLINK. EQ.l)  MOOX(KXKTR)  = 1 

010  675 

24 

IF  (MOCXCKXHTR) .EQ.O)  GO  TO  600 

NASA 

2246 

IF  CMOOXCKXMTR) .EQ.OATAB(IT10»43)>  GO  TO  500 

NASA 

2247 

J3=J3*1 

NASA 

2248 

320 

IF  {J3.6T.IOBO)  ) GO  TO  760 

NASA 

2249 

GO  TO  390 

NASA 

2250 

500 

GO  TO  690 

NASA 

2251 

510 

CONTINUE 

NASA 

2252 

C 

NASA 

225  3 

325 

C RECEIVING  ANTENNA  SELECTION  •<>♦*•**.♦**♦••****»•*.•*♦♦•*♦*♦**»*•♦»♦♦•*♦• 

NASA- 

2254 

IC=6 

NASA 

2255 

IF  (FI  .EQ.  1.)  GO  TO  690 

NASA 

2256 

IF  (SEO  .NE.  1)  GO  TO  520 

021075 

11 

IF  (SSS.EQ.O)  GO  TO  530 

NASA 

2258 

330 

520 

IF  (OATABdAly J7)‘.EQ.ll)  GO  TO  6«0 

NASA 

2259 

* 

J7=J741 

NASA 

2260 

IF  (J7.GT. 100(2))  GO  TO  760 

NASA 

. 2261 

GO  TO  520 

NASA 

2262 

530' 

IF  (NADIR. EQ.O)  GO  TO  550 

NASA 

2263 

335 

540 

IF  (DATA8(IA1»J7)  .EQi41)‘  GO  TO  690 

NASA 

2264 

J7=J7+1 

NASA 

2265 

IF  (J7.GT.I0B(2))  GO  TO  760 

NASA 

2266 

GO  TO  540 

NASA 

2267 

550 

IF  (GRP. EQ.O)  GO  TO  540 

NASA 

2268 

-71 


3<f0 
345 
350 
355 
3 60 
3 65 
3 70 
3 75 
3 60 
385 
390 
3 95 


560  IF  lOATABdAl,  J7)  .EQ.51)  GO  TO  69C 
J7=J7+1 

IF  (J7.GT.I0S(2) ) GO  TO  760 
GO  TO  560 

C ENO  RECEIVER  ANTENNA  SELECTION  


IC=7_ 

IF  ILINK.EQ.O)  GO  TO  770 
IE  RR=  0 

IF  (bATAB(IRl,J4) .EQ.l)  GO  TO  590 


^4=JA+1_ 


IF  CJ4.GT. 108(41)  GO  TO  760 
GO  TO  580 

IF  (DATAB(IR2, J4) .GE.COHRAT)  GO  TO  690 
J4sJl»4l 

IF  (J4.GT.IDB(4)>  GO  TO  760 
GO  TO  560 

I C 8 _ _ . _ ^ _ . . „ „ ..•■wviMMMMmWMmMCtJlX 


570 


580 


590 


600 

C COMMAND  SIGNAL  OUNUll 
C RECEIVER  CONSTRAINT  TESTED 
610  IF  (0ATAB(IR3,  J4)  .EQ.O^GO  TO  630 
620  IF  (OATAB(IR3#  J4)  *EQ«  DATABdt  J5  ) ) GO  TO  640 
J5=J5+1 

IF  < J5.GT.IOB(5)>  GO  TO  760 
GO  TO  620 

630  IF  (0ATA8(IC1*J5) .EQ.O)  GO  TO  640 
J5=J5+1 

IF  ( J5.GT,IDB(5) ) GO  TO  760 
GO  TO  630 

C LINK.  S6LS  OR  USB 

IF*^?LiKK.EQ.0>  GO  TO  770 
IERR=0 

IF  (0ATAB(IC2t J5) .EQ. 1)  GO  TO  650 
J5=J5+1 

IF  ( J5.GT.IDB(5) ) GO  TO  760 
GO  TO  610 

650°””iFJOATAB(IC3,J5).GE.0ATAB(IR2,J4))  Gp  TO  690  • 

If'cjIJgT.IOBCJS) ) 60  TO  760 
GO  TO  610 


DIPLEXER  SELECTION  *****************^* 
66Q  IC^9 

IF  (FI  .EQ,  0.)  GO  TO  690 
C LINK  SGLS  OR  USB 
lERR^lfl 

IF  (LINK. EQ.O)  GO  TO  770 

670  IF  (5aTAB(I01,J6) .EQ.l)  GO  TO  680 
J6=J6-H 

IF  (J6.GT.IDB(6>)  GO  TO  760 
GO  TO  670 
DIPLEXER  POMER 


680 


JT=KPIC(4) 


NASA 

2269 

NASA 

2270 

NASA 

2271 

NASA 

2272 

NASA 

2273 

NASA 

2274 

NASA 

2275 

• NASA 

2276 

010  675 

25 

NASA 

2278 

NASA 

2279 

NASA 

2280 

NASA 

2281 

NASA 

2282 

NASA 

2283 

NASA 

2284 

NASA 

2285 

NASA 

2286 

NASA 

2287 

NASA 

2288 

NASA 

2289 

NASA 

2290 

NASA 

2291 

NASA 

2292 

NASA 

2293 

NASA 

2294 

NASA 

2295 

NASA 

2296 

NASA 

2297 

NASA 

2298 

NASA 

2299 

NASA 

2300 

010675 

26 

NASA 

2302 

NASA 

2303 

NASA 

2304 

NASA 

2305 

NASA 

2306 

NASA 

2307 

^NASA 

2308 

NASA 

2309 

NASA 

2310 

NASA 

2311 

NASA 

2312 

******  NASA 

2313 

NASA 

2314 

NASA 

2315 

NASA 

2316 

NASA 

2317 

010  675 

. .27 

NASA 

2319 

NASA 

2320 

NASA 

2321 

NASA 

2322 

NASA 

2323 

NASA 

2324 

NASA 

2325 

IF  fDATAB(I02»  J6)  ,GE.0ATAB<IT9»jm  GO  TO  690 
J6=J6+1 

IF  (je.GT.ioacen  go  to  reo 

GO  TO  6TG 

c 

C PROGRAM  CONTROL  AND  BOOK  KEEPING  ♦♦¥***♦♦♦♦**♦**♦*»***♦•♦*»»**♦♦♦*♦♦♦ 
C J1-BASE3AND  ASSEMBLY  UNIT 
C J2-TRANSMITTER  ANTENNAS 
C J3-TRANSHITTER 
C U4»  RECEIVER 
C J5-S1GNAL  CONDITIONER 
C J6-DIPLEXER 
C J7-RECEIVER  ANTENNA 

690  IF  (IC.EQ.2  .OR.  IC.EQ.  3)  KPICUCi=J2 
IF  <IC.EQ.4.0R.1C.EQ.5J  KPlCaO=J3 
KONT  = Q 
IN-KPIC<IC) 

IF  UN.NE.Q)  KCHOSEaC)=OATA8ll,IHI 
WRITE  (6,2000)  IN.KCHOSE (IC) ,1C 
2000  FORMAT  (4H  690,3I10) 

700  CONTINUE 

IF  IIG.EQ.B.AND.ITER.NE. S)  GO  TO  740 

IF  <IC  .EQ.  9 .AND.  IP1C(4)  .£0.  0)  GO  TO  740 

IF  (IC.EQ. 9)  GO  TO  710 

nC.|Q.2.0R.IC.EQ.4))  IC=IC+1 
IF  (iSFFLG  {2).EQ.l  .AND.  ITER.EQ.IJ)  IC=*IC+1 

▼QV— JQ^I  ^ 

GO  TO  (3fl,90,lO8,26O,27O,51O|'SJa,6OO,66O),ICX 
710  ICK=JlO-IC 

DO  738  I=ICK,9 

iifia^i 

IF*(KCH0SE(III .EQ.O)  GO  TO  720 
IF  (KPIC(ll)+±.GT.LI«PIC(II))  GO  TO  728 
KPIC{II)=KPIC(IH +1 
IN  s KPICCIl)  I 

KCHOSE(II)  a DATABCiflN) 

GO  TO  740 

728  IF  (KPIC(II)  .EQ.  0)  GO  TO  725 
KP3CC  ID  PRESET  (ID 
^,725  IF  CII  .EQ.l)  KCHOS£(l)a-l 
730  CONTINUE 
740  OO  750  1^1,9 
750  IPIC(I)=KPICC1) 

IF  CKONT. EQ.l, AND. KCHOSE(l).N£.-l.)  GO  TO  700 
IF  (ITER.NE.O)  6C  TO  752 
OO  751  1=1,9 

IF  (KCHOSE(l).EQ.S)  60  TO  7S1 
NCHOSE(I)  = 1 

751  CONTINUE 

752  CONTINUE 
C 

C 

JsO 

00  753  1=1,9 

IF  (KCHOSECI) .EQ.B)  60  TO  753 
J=J+1 


NASA 

2326 

NASA 

2327 

NASA 

2328 

NASA 

2329 

NASA 

2338 

NASA 

2331 

NASA 

2332 

NASA 

2333 

NASA 

2334 

NASA 

2335 

NASA 

2336 

NASA 

2337 

NASA 

2338 

NASA 

2339 

NASA 

2340 

NASA 

2341 

NASA 

2342 

NASA 

2343 

NASA 

2344 

NASA 

2345 

NASA 

2346 

NASA 

2347 

NASA 

2348 

NASA 

2349 

NASA 

2350 

021375 

5 

NASA 

23S1 

NASA 

2352 

NASA 

2353 

NASA 

2354 

NASA 

2355 

NASA 

2356 

NASA 

2357 

NASA 

2358 

NASA 

2359 

820775 

1 

0 20  775 

2 

NASA 

2360 

NASA 

2361 

NASA 

2362 

NASA 

2363 

NASA 

2364 

NASA 

2365 

NASA 

2366 

NASA 

2367 

NASA 

2368 

NASA 

2369 

NASA 

2370 

NASA 

2371 

NASA 

2372 

NASA 

2373 

NASA 

2374 

NASA 

2375 

NASA 

2376 

NASA 

2377 

NASA 

2378 

NASA 

2379 

-73 


455 


460 


465 


470 


475 


460 


4 65 


490 


753 

754 


755 


ICHQSE<J>=KCHOSE( I) 

CONTINUE 
1C0NV=J+1 

IF  (J.EQ.li)  GO  TO  756 
J=J+1 

ICHOSEU)  = 0 
GO  TO  754 
CONTINUE 
ICNOSE<ICONV)  = 0 
ICHOSE(ICONVfl)=0 
IO06=IQB(6) 

00  760  1=1,9 
730  J=1,IDB6 

(DATAB(1,J)  ,NE,  ICHOSEdn  GO  TO 
(DATAB(22,J)  .EQ.  0.)  GO  TO  780 
tICHOSEdCONV)  .EO.  OATABt2E,Jl  .OR. 


CO 

IF 

IF 

IF 


780 


781 

780 


" 0ATA8(22,J))  GO  TO  780  . ^ 

IF  (ICHOSEdCONV)  .NE.  0)  GO  TO  761 
ICHOSE(ICONV)  = CATAB{22,J> 

GO  TO  780 

ICHOSE(ICONV+l)=OATAB (22, J) 

CONTINUE 

I087=IDB{7> 

00  757  1=1,11 

DO  756  J=1,IDB7 


ICHOSE(ICONV+l)  .EQ* 


IF 

IF 


(DATA8U,J).NE.  ICHOSEd))  GO  TO  756 
(I  .G£.  ICONV)  C0NtfHT=C0NVHT*0ATAB(23,J) *NCHOSE <I) 
HT  = WT  + DATAB(23,JI*NCHOSE(I)  ^ 

VOL  = VOL  + OATA8(24,J»»NCHOSE(I) 

PL  = PL  + 0ATAB(16,J)*NCH0SE(I) 


PL 

PLMIN  = PLHIN 
GO  TO  757 


kXDf  4/ 

DATAB(18,J)*NCH0Sed) 


756  CONTINUE 


757 


KPICCIC)=J2 

KPICdC)=J3 


CONTINUE 

NRITE  (6,3000)  ICHOSE. 

3000  FORHAT  <4H  757,11110) 

RETURN 

760  CONTINUE 

495  IF  (IC.EQ.2.0R.1C.EQ.3) 

IF  (IC.EQ.4.0R.IC.EQ.5) 

KONT=l 
GO  TO  710 
770  CONTINUE 

500  NRITE  (6,4000)  KCHOSE 

4000  F0RHAT(4H  770,11110) 

ICHOSE {1)=-1 

RETURN 

END 

I^REGiItERS^ASSIGNEO  over  the  LOOP  BEGINNING  AT  LINE  61 
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NASA 
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2380 

2381 
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2384 
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2387 
2368 

2389 

2390 
■2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 
2416 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 


-74 


SUBROUTINE  BESS 


vD 


10 


15 


20 


25 


10 

20 

30 


40 

50 

60 


76/76  0PT=2 


SUBROUTINE  BESS  t X , EES J.NMAX > 
DIMENSION  BESJ(l),  TJ(200) 
eutER=0.577Zt5€6A|01533 
PI =2. 0/3. 14159 265 3589753 
NU22=2fl 

IF  (10. -X>  10*10,20 
HATN=(1. 05)*X+25. 

60  TO  30 

HATN=35./(3.5-AtOG(X)  > 

NU=HATN 
TJ(NU+2)=0.0 
TJ(NU^1)=0. 000001 
DO  40  J=1»NU 
K=NU  + 1-J 
FK^K'f  K 

TJ  (K)=FK*TJ{K+l)/X-TJCK+2) 
SUM=0.0 

DO  50  J=3,NU,2 
SUM=SUH+TJ(J> 

SUH=SUM4SUH 

TK=1./(TJ(1)+SUM) 

N=IABS(NMAX)  + 1 
DO  60  J=1»N,  . ^ 
BESJ(JI=TK''TJ(  J) 

RETURN 

END 


FTN  4.2*383 


03/27/75  21.38.32 
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2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 


l3""*''!!oROS®OF’‘lNV«RIANT“RUsf  REHoSIpFROM  THE  LOOP  BEGINNING  AT  LINE  13 


-75 


FUNCTION  RESET  76/76  0PT=2 


FTN  if, 2+383 


^8S§S^D«5SJ?ii!i^noo),ioa(30) 

IF  «K.Iq?2Hr^k!eq:|jOR.K.EQ.6) 

IF  (k:I§:7:or:k:Iq:I1or!k!eq:9)  = iD8(K-if)  + ± 

RETURN 

END 


Q3/Z7/75 

21.36. 

NASA 

2A57 

022575 

367 

022575 

368 

NASA 

2459 

NASA 

24E0 

NASA 

2461 

NASA 

2462 

NASA 

2463 

NASA 

2464 

vD 


SUBROUTINE  SKEC 


76/76  OPT=2 


FTN  4.2+383 


03/27/75 


21.38*34 


5 

10 

15 


20 


sO 

I 

Ch 


25 


30 


35 


40 

45 


50 


C 

C 

c 

c 

c 

c 


SUBROUTINE  SKEDC NEQUIP.NCCNF) 
COHMON  /USER8/SK0HE(7,3) 

COWlON  /CHOSE/ 


1 

2 


COMMON/PRTCOH/ 


1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
3 
C 


COST  (5 

• 60 ) , 

DPIA<11,60) 

, ICHOSE(60), 

NCKOSE(60}« 

REL  ( 6,60) 

, OBSKEO(7,eO)  , 

THN(4, 

60) 

ACCRCY, 

AH, 

AN, 

8F, 

BS, 

C0PI(7,2>, 

ORIHT, 

CISTAR, 

CTOT, 

DOTE, 

OE, 

EQBSTR, 

FEEINtf, 

FEEOPS, 

FEER, 

GSE, 

IREL, 

IT RUNC, 

HMDOLO, 

NAME(3,60) 

OPS, 

PAYINV, 

PAYQUL, 

PAYR, 

PE» 

PHP, 

PMR, 

P0HER(6), 

. PU, 

PMR(60) , 

QCP, 

OCR, 

R0LD(60) , 

SABMHT, 

SATADP, 

SATINV, 

SATR, 

SEIP, 

SEIR, 

TSAVE(6), 

SSREL(6), 

SUBE(7), 

SUBT(7) , 

SUBUE(7) , 

SUBUP(7) , 

TA, 

TAU(6,6), 

TOOLR* 

TB, 

TC, 

TE, 

TF, 

TOOLU, 

TOTOPS, 

TRUNC, 

TS, 

TTT, 

V0LUH£(6) , 

VQL(60) , 

WEIGHT(6), 

XLTOT, 

XMEH, 

XMEINV, 

XMEL, 

XMEVL, 

0 XMEH,  XMEWT,  Avtj>i 

DIMENSION  CONF(22,5) , TSUB  (6) , ICI (5) , NECUIP (5> ,NCONF <6) 
DATA  101/0,5,8,10.15/ 

DATA  C0NF/i.,1.5,l.,2.,1.5,341.,2.,12*l.,2., 
6*,9**6.«12.,9*,5.*6*,8*,4. ,6  +2* , 6*4 . » 2. , 

22*7., 22*2. E-7, 5*. 0001, 3*. 0002, 13*. 000 07,. 0002/ 


FK=1. 

CONF 


ROMS  ARE 


00  1 J=l,6 
1AU{6,J)  = 
TSAVE(J)=0, 
DO 
IF 
IF 
IF 
IF 


1 TO  5 FOR  S AND  C 
6 TO  a FOR  AUXPRO 
9 TO  10  FOR  DPI 
11  TO  15  FOR  COMM 
16  TO  21  FOR  EP 
22  FOR  M E 


OiO 


ISTRT=1 

ISTRT=IENO+l 

1EN0:=NEQUIF(1) 

IEN0=IEND+NEQUIP(IS> 


4 IS=1,5 
(IS  .EQ.  1) 

(IS  .6T.  1) 

(IS  ,EQ.  1) 

(IS  .6T.  1) 

TSUB(1):=0. 

TSUB(2)=0. 

C=0. 

hUM=fl 

DO  2 J=ISTRT,IENO 
TCO=OBSK£D(3,J)+OBSKEO(4,J>. 

IF  (TDD  .6T.  TSUBdn  TSUB(1I=TCD 
TCQ=OBSK£D(5,J)+DBSKED(6,J)  , 

IF  (TOO  .6T.  TSU8(2))  TSClB(2)=TCQ 

C=C+(1.335*DaSKEO('l,J)+1.41*OBSKEO(2,J>)*1000. 

hUM=NUM+NCHOSE(J) 

. XNUH=NUH 

REOUN^XNUM/NEQUIP (IS) 


NASA 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

0 22575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

0 22575 

022575 

022575 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

111874 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


2465 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 
364 

385 

386 

387 

388 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 
41 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 
25.02 

2503 

2504 

2505 


-77 


55 


60 


65 


70 


75 


80 


85 


90 


95 


IDO 


>6T.  0.)  60  TO  6 


IC=ICI(IS) +NGONF(IS) 

R=R£0UN**.125 

TSUBC  3)  = C0NF(IC,2) +C0NF(IC*5  )»R*CONF (IC , 1) *C»*i6667 

TSLB(4)=C0NF(IC,3>+C0NF{ 3C,4)»R*C 

1SDQ=:TSUB{2) 

IFCTSU8(2)  «LT.  TSU0 ( 3 1 + TSU0 ( 4)) TSDQ=TSUBI 31 +TSUB<4 > 
TSUB{5)=C0NF(IC,1»*FK*TS18(3) 

TSUa(6)=TSUBCl)+TSDQ 
DO  10  J=l,6 

10  TAUCIS»J)=TSU8(J> 

IF  (TS0B(5)  .LT.  TSAVE(5)>  TSUBI5)=TSAVEC5» 

IF  (TSUB(5>  .GE.  TSAVE (5 » )TSAVE(5)=TSUB (5) 

IF  (TSUB(6)  .LE.  TSAVE(6>>  GO  TO  4 
DO  3 J=l,6 

3 TSA)/E(J>  = TSUB(  J> 

ISSAV£=1S 

4 CONTINUE 

NON  00  MISSION  EQUIP 
DO  5 J=l,3 
DO  5 1=1,7 
JJ=4-J 

IF  (SKDME(I,JJ) 

5 CONTINUE 
JJ=0 

6 IF  (JJ  .EQ*  0)  GO  TO  20 
TSUB(l)=fl. 

TSU8(2)=0. 

c=o. 

00  8 J=1,JJ 

TCO=SKDME(3,J}4SKOHE(4*JI 

IF  (TCD.  GT.  TSUBdn  TSUB(1)=TCD 

TCQ=SK0HE(5,J)4SK0HE(6,J) 

IF  CTCQ  .6T.  TSUB(2)I  TSUfi(2>=TCQ 
8 C=C+(1.335*SKDH£{1,J)+1, 41»SKDMeC2,J)>*10{l0. 
|SU8(3)=C0NF(22,2J4CCNF{22,5)  *C0  KF  t.22, 1)  6667 

1SUB(4)=CONFC22,3)+CONF<22,4)*C 
TS0Q=TSUB(2) 

IF  (TSUB(2}  .LT.  TSU0  <3»+TSU8{4»  nSOQ=TSUB  (3I*TSUB('4) 
1SUB(5)=C0NFC22,1)4FK*TSIB(3) 

TSUB(6)=TSU8C1)+TSDQ 
no  11  J=l,6 

11  TAU<6,J)  =TSUBCJ) 

IF  (TSUB(5)  .LT.  TSAtfECS))  TSUB (5)=TSAVE (5) 

IF  CTSUB(5)  .GE.  TSAVE  (5) )TSAVE (5) =TSUB (5) 

IF  CTSUB(6)  .LT.  TSAWEC6))  GO  TO  20 
DO  9 J=l,6 
S TSAVE <JJ=TSU8CJ) 

20  TSAVE (6)=TSAVE(6>+TSAVEC5) 

RETURN 

END 


NASA 

2506 

NASA 

2507 

NASA 

2508 

NASA 

2509 

NASA 

2510 

NASA  ■ 

2511 

NASA 

2512 

NASA 

2513 

111874 

42 

111874 

43 

NASA 

2514 

NASA 

2515 

NASA 

2516 

NASA 

2517 

NASA 

2518 

NASA 

2519 

NASA 

2520 

NASA 

2521 

NASA 

2522 

NASA 

2523 

NASA 

2524 

NASA 

2525 

NASA 

2526 

NASA 

2527 

NASA 

2528 

NASA- 

2529 

NASA 

2530 

NASA 

2531 

NASA 

2532 

NASA 

2533 

NASA 

2534 

NASA 

2535 

NASA 

2536 

NASA 

2537 

NASA 

2538 

NASA 

2539 

NASA 

2540 

NASA  ■ 

2541 

NASA 

2542 

NASA 

2543 

111874 

44 

111874 

45 

"NASA 

2544 

NASA 

2545 

NASA 

254,6 

NASA 

2547 

NASA 

2548 

NASA 

2549 

NASA 

2550 

NASA 

2551 

SUBROUTINE  SANOC 


76/76  0PTs=2 


FTN  4.2+383 


G3/27/75  21.38.36 


SUBROUTINE  SANOCCIPICt IERR,ITER,NCONF,ICHOS£.NCHOSE» 

ICHOSECIO)  IS  SELECTED  EGLIP  AS  FOUR  CIGIT  EDUIP  = «-  MANF  = 
MCONF  IS  CONFIGURATION  NUMBER.ITER  IS  NUMBER  OF  THIS  ITERATION 
lERR  IS  A HULTIPLc  MESSAGE  ERROR  FLAG,IPIC  IS.  THE  LAST 
SET  OF  SUBSCRIPTS  CHOSEN 
COMMON  USER  LISTS  USER  INPUT  PARAMETERS 
. COMMON  BTHN  LISTS  NECESSARY  COMMUNICATION  BETWEEN  SUBROUTINES 
.COMMON  COATA  HAS  LAST  SUBSCRIPT  FOR  EACH  PIECE  OF  EQUIP, AND 
THE  NECESSARY  PIECE  OF  THE  DATA  BASE 
OIMENSION  ^ICH0S|{9I,IPICC3) ,ES f6) ,C C5) , DMA (2) ,G <31 ,F(9) ,NCHOSE <9) 

COMMON  /USERl/  ALPHA,  AX,  AY,  AZ,  OPHI. 


COMMON  /USERl/ 


I DEBUG, 
MICRO, 


COI^ON  /3THN/ 


ALPHA, 

AX, 

AY, 

AZ, 

OPHI, 

15* 

„eant. 

EPl, 

K, 

NANV, 

OHEGR, 

PDOTAV, 

POOTRXJ 

PDOTRY, 

POOTRZ, 

PDOTST, 

pdotx. 

pooty; 

POOTZ, 

POOTO, 

PHIFOV, 

PHIRX, 

PHIRY, 

PHIRZ, 

TACCEL, 

THETMX, 

THOLO, 

TL, 

TPHIN, 

TSMALL, 

XN, 

ZN 

xnn. 

XNNN, 

XNU, 

YN, 

APOGEE, 

COMRAT, 

OIAMAX, 

EEaWT(9), 

EPME, 

EQMIHT, 

EOMiXL, 

EQHIYL, 

EQMIZL, 

EQM2HT, 

EQK2XL, 

EQM2YL, 

EQM2ZL, 

FE, 

IA6NCY, 

ISAT, 

M812SH, 

OPTEMP, 

ORBING, 

PERIGE, 

. RELME, 

SPECCS), 

SPECl, 

T, 

XCGSAl, 

XMER, 

XHEU 

ACSSNf 

ACSHP, 

ALT, 

AREA, 

8ATCAP, 

BITRAT(2), 

CLIFE, 

CONVWT., 

Of 

DT, 

OX, 

ov; 

OZ, 

. EQBLG, 

EQSSIO, 

FC, 

FF, 

HARNNT, 

HPT, 

HTPIPE, 

HTPTt 

HTRPR8, 

HTRPWR, 

IBTLO.C, 

LM300, 

NC| 

OMEGS, 

PASSTR, 

PU, 

PL, 

PLHIN, 

POCNWT, 

RAOA, 

RAOAB, 

RAT, 

RJ, 

SAB0L6, 

SATLG, 

SATTMT, 

SATHT,  . 

SATXCG, 

SATYCG, 

SATZCG, 

SAIXL, 

SAIYL, 

SAiZL» 

SIDE, 

SYSL8, 

THCHHT, 

THRUST C2>, 

, TI, 

TNKWT, 

TPRIM, 

VB, 

VCHP, 

VOL, 

HATE, 

WB, 

. HBT, 

HT, 

XJ, 

XNZERO, 

YJ, 

ZU 

COMMON  /D8COM/DATA8<55,100) , I08< 36) 

DATA  XMD,VMO,ZMO,DI,XHD2,YM02,ZHC2/3*.8003,.03,3+.04/ 
ACSSN=2. 


IF  {HCONFCD  .EQ.  1)  GO  TO  10 
DT=0T/12. 


DT=0T/12. 

0=0/12. 

0X=0X/12. 

DY=0Y/12. 

CZ=0Z/12. 

XJ=XJ/4636.8 

YJ=YJ/4636.8 

ZJ=ZJ/A636.8 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

0 22575 

0 22575 

022575 

022575 

022575 

022575 

0 22575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

0Z2S75 

022575 

022575 

922575 

0 22575 

022575 

0 22575, 

022575. 

022575 

822575 

0 22575 

022575 

022575 

022575 

022575 

022575 

022575 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA- 

NASA 

NASA 

NASA 

NASA 

NASA* 


-79 


55 

60 

65 

70 

75 

60 

85 

90 

95 

100 

105 

110 


NASA 

2585 

CONI/WT=0. 

NASA 

2586 

10  RJ=RJ/i»636.8 

NASA 

2587 

PJ  = PJ  / 4636.8 

010  675 

30 

WT=0. 

NASA 

2583 

tfOL=0. 

NASA 

2589 

PL=:a. 

NASA 

2590 

FLMIN=0. 

NASA 

2591 

08  = 0.4  * PHIRX 

010  375 

2 

IF  (OB  .LT.  0.05)  OB  =:  0.05 

010375 

3 

ETA  = 0.85 

012075 

1 

EPSLN  = 0.7 

010375 

4 

EPSA  =0.2 

010375 

5 

OMEGO  = 1.1864E8  / (20.920E6  + 6076.*ALT)**1.5 

010  375 

7 

RE  = 3441.66 

011275 

33 

OMEGE  = 7.2927E-5 

010375 

9 

HO  = 9.4E-6 

010  375 

10 

XK  = 3*OMEGO*OMEGO  /(57.3)**2 

010  375 

11 

XCG  = 1./12.  ♦ (SATXCG-500.-,5’EQeLGI 

011075 

5 

YC6  = 1./12.  * SATVCG 

011075 

6 

ZCG  = 1./12.  * SAT2CG 

011075 

7 

A = .5  * (2.  * RE  + APOGEE  + PERIGE) 

011275 

34 

EQBL6  = EQBLG  / 12. 

011275 

35 

IF  (NCCNF(6)  .EQ.  2)  EQBSIO  = EQBSIO/12. 

011275 

36 

SAIXL  = SAIXL  / 12. 

011275 

37 

SAIYL  = SAIYL  / 12. 

011275 

38 

SAIZL  = SAIZL  / 12. 

011275 

39 

ICONF  = NC0MF<6) 

010  375 

15 

60  TO  (11, 12, 13), ICONF 

010  375 

16 

11  SIDE  = 0 

010  375 

17 

XUNTH=  EQBLG 

010375 

18 

GO  TO  14 

010  375 

19 

12  SIDE  = EQBSIO 

010375 

20 

XLNTH=  EQBLG 

010375 

21 

GO  TO  14 

010  375 

22 

13  SIDE  = 0 

010375 

23 

XLNTH=  0 

010  375 

24 

14  CONTINUE 

010375 

25 

IF  (EQMIHT  .GT.  0.)  GO  TO  15 

010  375 

26 

EQHIXL  = 0. 

010375 

27 

EQHIYL  = 0. 

010375 

28 

EQMIZL  = 0. 

010  375 

29 

15  IF  (EQH2WT  .GT.  0.)  GO  TO  16 

010375 

30 

EQH2XL  =0. 

0 10  375 

31 

EQM2YL  = 0. 

010375 

32 

EQH2ZL  = 0. 

010375 

33 

16  CONTINUE 

010  375 

34 

ICONF  = NCCNF(l) 

010375 

35 

GO  TO  (17,16,19,19,19) , ICONF 

010  375 

36 

17  INOSE  = 1 

010  375 

37 

TEMPIN  = XJ 

011075 

8 

XJ  = YJ 

011075 

9 

YJ  = TENPIN 

011075 

10 

GO  TO  20 

010375 

38 

18  INOSE  = 2 

010  375 

39 

TEMPIN  = XJ 

011075 

11 

XJ  = ZJ 

011075 

12 

08- 


115 

120 

125 

130 

135 

1<<0 

145 

150 

155 

160 

165 


19 

20 


21 


22 

23 

24 

25 


26 


27 


.-//s 


ZJ  = TEMPIN 
GO  TO  20 
INOSE  = 3 

NO  TRANSPOSITION  REQUIRED 
CONTINUE 

TGX  = XK  * (ZJ-YJ) 

TGY  = XK  ♦ (ZJ-XJ) 

TGZ  = 0. 

ICONF  = NCONF(5» 
60~TO^<i2i23t24),I 


PHIRX  A/57.3 
PHIRY  / 57.3 


.5 


XLNTH 


0.0 


2. 

2. 

2. 

0. 

0. 

0. 

0< 


* XLNTH 

* (XCG-XREFSP) 

* YCG 

* ZCG 


.LT.  65.)  60  TO  28 
.6T.  500.)  GO  TO  29 


28 


29 


XREFSP  = 

60  TO  25 
XREFSP  = 

GO  TO  25 
XREFSP  =-.5 
CONTINUE 
OELXSP  = 

DELYSP  = 

DELZSP  = 

GO  TO  27 
SREFSP  = 

OELXSP  = 

OELYSP  = 

CELZSP  = 

IF  (PERIGE 
IF  I PERIGE 
TSX  = 0. 

TSV  = 0. 

TSZ  = 0. 

TAUXS  = 0.0 
TAUYS  = 0.0 
TAUZS  = 0.0 
60  TO  40 
lERR  = -1 
ICHOSE(l)  = -1 
RETURN 
TAX  = 0. 

TAY  = 0. 

TA2  = 0. 

TAUXA  =0.0 
TAUYA  = 0.0 

ApH(SIDe5xLNTH)+{EQH1XL*E0M1YL7144.)+<EQM2XL*EQH2YL/144.) 
>CP  =(EQM1XL*EQM2XL)/24. 

YCP=  0.0 

ZCP^=^AMAX1(IiD£12,EQH1ZL»EQM2ZL)  /(-24.) 

XLX=  XCG  - XCP 
XLY=  YCG  - YCP 
XLZ=  ZCG  - ZCP 
R = RE/A 

S = 1.02  ♦ ASIN(R) 

TS  = 2.  * (3.14l59-S)/0MEGfl 
GOTO  C30.31. 32). INOSE 


011075 

010375 

010  375 

011075 

010375 

011075 

011075 

011075 

010375 

010  375 

010375 

010  375 

010375 

010375 

010375 

010375 

010  375 

010  375 

011075 

010  375 

010375 

010375 

010  375 

010  375 

011275 

011275 

011275 

010375 

010375 

010  375 

010375 

010  375 

011575 

011575 

011575 

010375 

010  375 

010  375 

010  375 

010  375 

010375 

010  375 

011575 

011575 

011575 

011275 

011275 

010  375 

011275 

011275 

010375 

010  375 

010  375 

011275 

011275 

010375 

010  375 


13 

40 

41 

14 

42 

15 

16 

17 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

18 

56 

57 
56 

59 

60 

40 

41 

42 
62 
63 

n 

66 

5 

6 

7 

67 

68 

69 

70 

71 

72 

73 

8 
9 

10 

43 

44 
76 

45 

46 

78 

79 

eo 

47 

48 

83 

84 


iroiOD^eiBILro  OF  THE 
OEIGINAL  PAGE  IS  POC« 


vO 

00 


170 

175 

160 

185 

190 

195 

200 

205 

210 

215 

220 

225 


30  lEMPX  = XLX 
XLX  = XLY 
XLY  = -TEMPX 
TSX  = HO  ♦ AP 
TSY  = HO  * AP 
TSZ  = 0. 

GO  TO  38 

31  TEHPX  = XLX 
XLX  = -XLZ 
XLZ  = TEMPX 
TSX  = 


^ (l.+EPSLN)  * XLY 
♦ (l.+EPSLN)  +(-XLX) 


(l.+EPSLN)  * XLZ 


(l.+EPSLN)  *(-XLY) 


TSY  = -HO  * AP  ♦ 

TSZ  = HO  » AP  + 

GO  TO  38 

32  TSX  = HO  *(AP*(1.+EPSLN)*XLY  + 
TSY  = HO  *(AP*(l.+EPSLN)*XLX  + 
TSZ  = 0. 

38  TAUXS  = TS 
TAUYS  = TS 
TAUZS  = TS 
GO  TO  60 


SREFSP*(1.+EPSA )*DELYSP) 
SREFSP*(l.+£PSA)*OELXSP) 


COMPUTE  SOLAR  TORQUES 


40  HEOHO  = OMEGE  / ONEGO 
SININC  = SIN(ORaiNC) 

EETA  = ATAN(ME0M0*S1NINC)  + 08 
ALFA  = OB 

ALF8AR=AC0S(C0S(BETA)/(SQRT(1.+  C0S(8ETA)*+2  * TAN(ALFA)**2)) ) 
CA  = 2.012  * COS(ALFBAR)*+2 
CY  « - SIN(2.+aGTA) 

CN  = SIN  (2. ♦ALFA) 

IF  (PERIGE  .GE.30Q.)  GO  TO  42 
IF  (PERIGE  .GE.IOO.)  60  TO  41 
RHO  = 1.5E-9  * .fl2**((PERIGE-65.)/35.) 

GO  TO  43 

41  RHO  = 3.E-11  * 4.333E-4**l(PERIGE-100.)/200.) 

GO  TO  43 

42  RHO  = 1.3E-14  * 1.538£-2+*( ( FERIGE-300.)/200 .) 

43  Q = 3.6E10  + (RHO/A) 

GO  TO  (44.46,48) ,INOSE 

44  SREF  = SIDE*XLNTH  + EQMlXL^EQMlZL/144.  + EQM2XL*£QM2ZL/144. 
XREF  = (EQM1XL-EQM2XL)  / 24, 

SIDE12  = SIDE  * 12. 

YREF  = AHAXl  (SI0E12, EQM1YL,EQM2YL)  / 24. 

ZREF  = 0. 

DELTX  = XC6  - XREF 
DELTY  = YCG  - YREF 
CELTZ  = ZCG  - ZREF 
TEMPX  s DELTX 
CELTX  = DELTY 
DELTY  = «TEMPX 
GO  TO  50 


46  SREF  = SID£*>LNTH  + EQM1XL*EQM1YL/144.  + EQH2XL*EQM2YL/144. 
XREF  = (EQM1XL-EQM2XL)  / 24.' 

YREF  = 0. 

SIOE12  = SIDE  ♦12. 

ZREF  = AMAXl  ( SIDE12, EQMIZL, EQM2 ZL ) /(-24.) 


010  375 

85 

010  375 

86 

011275 

43 

010375 

88 

010  375 

89 

010375 

90 

010  375 

91 

010375 

92 

010375 

93 

010375 

94 

010  375 

95 

010  375 

96 

010  375 

97 

010375 

98 

011275 

50 

011275 

51 

010  375 

101 

011275 

52 

011275 

53 

011275 

54 

010375 

105 

010375 

106 

011275 

55 

010  375 

109 

010375 

110 

010  375 

111 

010  375 

112 

010375 

113 

010  375 

114 

010  375 

115 

010  375 

116 

010  375 

117 

010  375 

118 

010  375 

119 

010375 

120 

010  375 

121 

010375 

122 

010375 

123 

010  375 

124 

011275 

56 

011275 

57 

011275 

58 

011275 

59 

010  375 

128 

010  375 

129 

010  375 

130 

010375 

131 

010  375 

132 

010  375 

133 

010  375 

134 

010375 

135 

010  375 

136 

011275 

eo 

011275 

61 

010375 

139 

011275 

62 

011275 

63 

9-8Z 


230 
235 
240 
2 45 
2 50 
255 
2 60 
2 65 
270 
275 
2 00 


48 


CELTX  = XCG  - XREF 
OELTY  = YCG  - YREF 
CELTZ  = ZCG  - 2REF 
TEMPX  = OELTX 
OELTX  = -DELTZ 
OELTZ  = TEMPX 
GO  TO  50 

^XQ£1.2  ^ SXOE  ^ 12* 

SREF=AMAXl(SIDei2fEQHlYLtEQM2YU*AMAXl(SIOE12,EQMlZL,EQM2ZL)/144. 
EQMlXL/12. 


XREF  = 

XLNTH/2 

. + 

YREF  = 

0. 

ZREF  = 

0. 

CELTX 

= XCG  - 

XREF 

OELTY 

= YCG  - 

YREF 

CELTZ 

= ZCG  - 

ZREF 

50 


TAX 
TAY 
TAZ 

TAUXA  = 
lAUYA  = 
TAOZA  = 


=Q*SREF*(DELTZ»CY+OELTY*CN)+Q«SR£FSP’{OELZSP*CY+OELYSP*CN> 
=Q*SREF*(DELT2*CA -OELTX* CN) +Q*SR£FSP*IDELZSP*CA-DELXSP*CN) 
=Q*SREF*(-D£LTY*CA-DELTX*CY)+Q*SREFSP*(-OEUYSP*CA-DELXSP*CYI 
17.8  /<APOGEE-PERI6E*18.75)  4-C.05 
■ * T ♦ 2.592E6 


P 

P 

P 


60 


TAX  = 
TAY  = 
TAZ  = 
TGX  = 
TGY  = 
TGZ  = 
TSX  = 
TSV  =: 
TS2  = 


ABS 

ABS 

ABS 

ABS 

ABS 

ABS 

ABS 

A8S 

ABS 


* T * 

* T ♦ 

(TAX) 

(TAY) 

(TAZ) 

(TGX) 

(TGY) 

(TGZ) 

(TSX) 

(TSY) 

(TSZ) 


2.592E6 

2.S92E6 


>MO  = TAX  + TGX  + TSX 
YMO=  TAY  + TGY  + TSY 

9002  eil.4,7HTAUXA=  E11.4, 

♦ 7HTAUYA=  £11.4#7HTAUZA=  Ell. 4)  ^ 

PRINT  9003. TSX, TSY.TSZ.TAUXS.TAUYStTAUZS  , 

9003  FORMAT  (1X,5HTSX=  E11.4,5HTSY=  E11.4.5HTSZ=  Eli. 4,7HTAUXS=  Ell. 4, 

* 7HTAUYS=  E11.4,7HTAUZS=  Ell. 4) 

PRINT  9004, TGX.TGY. TGZ 

9004  FORMAT  (IX JsHtBx=  ill.4,5HTGY=  E11.4,5HTGZ=  El  1.4) 

IF  (NCONF(i)  .EQ.  2)  60  TO  200 

- --  - GO  TO  300 

GO  TO  400 
GO  TO  500 
SPIN 


3) 

4) 

,EQ.  5) 
FOR  DUAL. 


.EQ. 

.EQ. 


IF  (NCONF(l) 

IF  (NCONF(l) 

IF  (NCCNF(l) 

INITIALIZE 
IERR=0 

IF  (ITER  .GT. 

00  100  1=1,7 
II=IOB(I) 

IF  (ITER  .EQ.  0)  NCHOSE(I)=l 
HT=MT*DATAB(23,II)*NCH0SE(I) 


0 ) OX=OX/12. 


010  375 

010  375 

010375 

010  375 

010375 

010375 

010  375 

010  375 

011275 

011275 

011275 

010  375 

010  375 

010375 

010  375 

010375 

010  375 

010375 

010375 

010  375 

010375 

011275 

011275 

011275 

010  375 
011775 
011775 
011775 
011775 
011775 
011775 
011775 
011775 
011775 
011775 
011775 
0 10  375 
010375 
011575 
011575 
011575 
011575 
011575 
011575 

011  575 
011575 
NASA' 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 


141 

142 

143 

144 

145 

146 

147 

148 

64 

65 

66 

151 

152 

153 

154 

155 

156 

157 

158 

159 

‘I? 

68 

69 

164 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

166 

167 

11 

12 

13 

14 

15 

16 

17 

18 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 
2601 
26  0 2 


2 85 


290 


295 


300 


305 


sD 


f 310 


00 

Ijj 


315 


320 


325 


330 


335 


WOL=VOL+OATA8(2i»,II>*NCHOSE(I) 

FL=PL+CATAB(16,II)*NCH0SE(I) 

FLMIN=PLMIN+OATAB  <18, 1I»  *^iCHCSEC  I> 

TEHPIN  = XJ 
XJ  = YJ 

YJ  = TEMPI N - PJ 
100  ICHOSE<I)=OATAB(1,II) 

IF  (ITER  .EQ.  0)  NCHOS£(8»  =1 

IF  (ITER  .EQ.  0)  NCH0SE(9)=1 

IF  (ITER  .EQ.  C>  NCHOSE(7)*2 

Il*H=I08(13)fl 
ICH0SE(9)=DATAB(1,I1A) 

11=108(6) 

CONtfHT=DATAB(23,I14)»NCHOSE(9) 

MT=WT+DATAB(23,I14»*NCH0SE(9) 

VOL=VOL+DATAB(24, 114) *NCH0SE(9) 

PL=PL«-CATA8(16,I14)»NCH0SE(9) 

FLMIN=PLMIN+CATA8(1«,I14)*NCH0SE(9) 

IF  (IPIC(l)  .NE.  0)  J1=IPIC(1)+1 
IF  (ITER  .6T.  0)  J1=IPIC(1) 

IF  (IPIC(l)  .EQ.  0)  Ji=IOB(7)  +1 

IF  (J1  .GT.  ID8(8)  ) GO  TO  118 
Jl£=IOB(8) 

C ES(6)  CORRES  EARTH  SENSORS, C(5)  CORRES  CONTROL  TIMING 

IF  (ITER  .GT.  0)  GO  TO  112 
00  104  1=1,6 
ES(I)=DATA8(I+5,J1) 

11=100(1) 

DO  136  1=1,2 
0MA(I)=0ATA8(I+6,II) 

11=108(6) 

CO  10  8 1=1,5 
C(I)=0ATAB?I45,II) 

11=108(7) 

DO  110  1=1,3 
G(I)=0ATA8a45,II) 

II=IDB(5) 

6H=0ATAB(6,1I) 

112  XMl=.116*(320.*6fl.*XNN)/(21.«RJ*OMEGR) 
XH^.03*(360.*60.*XNN)/(21.*RJ*OMEGR) 

^^'^'^*^S*2)/21.)**^♦(X^N*ES(6)/^l,)*•24<XNN*OMA<2)/21.)*»^ 

^tXMZ*XM2) 

EZ=XH1+XK2 

IF  (K.EQ.l)  GO  TO  114 
|V^JRT(ES(4)**2+ES(5)»*2)4XK1 

GO  TO  116 

114  GT=G(1)*G(1)+G(2)*G(2) 4G(3)«G(3) 

£Y=SQRT(£S (4) **2+ES (5 ) •♦E) +SQRT ( XK1**2+GT+C(1) **2+GH»GH) 
^EX^QRT(XM1**2+ES(4)**2)  +SQRT  (XK2-»*2+0(  1)**2*C<2)»*2+C  (3)**2 
♦+bH*GH+GT) 

lie^IF  (EX  ,LE.  PHIRX  .ANO.  EY  ,LE.  PHIRY  .AND.  EZ  .LE.  PHIRZ) 

* bu  lU  120 


103 

104 


IQE 


108 


110 


NASA 

NASA 

NASA 

010675 

010  675 

010  675 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


2603 

2604 

2605 

31 

32 

33 

2606 

2607 

2608 

2609 

2610 
2611 
2612 

2613 

2614 

2615 

2616 
2617 
2616 

2619 

2620 
2621 
2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 
2644' 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 


t8“6 


340 
345 
358 
355 
360 
365 
3 70 
375 
380 
385 
390 
395 


E11.4,4HEZ=  Ell. 4) 


Ji=^Jt+l 

PRINT  9flOO,RJ,PJ 

9000  FORMAT  I1X.4HRJ=  E11,4,4HPJ=  £11*4> 

PRINT  9flfll,EX,EY,EZ 

9001  FORMAT  <1X,4HEX=  E11.4,4HEY= 

IF  CJl  ,LE.  JIE)  GO  TO  183 

C LAST  ONE  CHECKED  AND  NONE  FOUND 
118  ICH0Se<8)  = -l 
RETURN 

C ACCEPTABLE  DEVICE  SELECTED 

120  IPICCl)=4i 

PRINT  9QflO,RJ»PJ 
PRINT  90C1,EX,EY,EZ 
IPICC2J=0 

ICHOSE(8)=OATAa(l,Jl) 

«T=«T+DATABI23,J1)<»NCH0S£<8I 
VOL=VOL+OATAB{24, J1»*NCH0SEI8)  ' 

FL=PL+CATABU6  ,J1)  •NCHOSE  (8) 

PLMINs:PLMIN+DATAB<18,Jil*NCH0SET8) 

TI=267.*TPRIM+Ft*TSMALL 

=*14.1£-9  ♦ FF  OX  * DI  / <RJ*PHJRX) 

CLIFE  = 37.66  * TPRIH  • FF  • DX  * DI  / «RJ*PHIRX) 

RETURN 

C YAH  SPIN  CONFIG 

C , INITIALIZE  SKIPPING  SOME  IF  ITERATING 
200  IERR=0 

TEMPIN  = XJ 
XU  = ZJ 
ZJ  = TEMPIN 
■ I1=I0B<8)+1 
3CH0SE(1)=DATABC1,I1) 

I2=I0B<9)+1 
13=10 B <10) +1 
ICH0SE(2I=DATA8C1»I2I 
ICH0SE(3)=DATABC1,I3) 

114=106(133+1 
ICH0SE(6)=0ATAe{ltI14) ^ 

17=103(21 

3CHOSE(7l=OATAe  (1.171 
IF  (ITER  .GT..fll, GO  TO  203 
00  202  lsl*9 
202  NCH0SECI1.=1 

203^HT=HT+NCHOSECl»*DATAB(23;il)+NCHOSE(2)*DATAe(23,I2)+NCHOSE(3)* 

VOL=yOL+NCHOSE(ll*OATAB(24.11)+NCHOSe(21*OATA8l24|I21+NCHOSE{3>* 

* DATAB(24.I31+NCH0SE(6)*0ATAB{24,Ii41+NCHOSE(7)+DATA8(24,I71 
-Pi:TS’tt'!?5^0SE(l)*0ATA8  (16,11)  +NCHOSE(2l*DATA9 (16, 12)  ♦NCHOSEO)* 

* OATA8C16,I3)+NGHOS£(5)*OATAS(i6,I14)+NCHOSE(7)*DATAB(i6,I71 
FLMlN=PLMIN+NCHOSE(l)*OATA8(18,Ii)+NCHOSe(2)*DATAB(ie,I2) + - 

» NCH0SE|3)*DATA8(ia,I3)+NCH0SE(6)*DATAB(18,Il,4)+NCH0S£(7)-+ 

•*  0ATA8C18,I7) 

ICHOSE(6l  = (l 
ICHOSE(9I=0 

C ^iERR=l  I MAX  ALL0HA8LE  SYSTEM  ERROR  UNACCEPTABLE 

IF  (PHIRX  ,LT.  .125)  IERR=1 


NASA 

2657 

011475 

20 

011475 

21 

811475 

22 

011475 

23 

NASA 

2658 

NASA 

2659 

NASA 

2660 

NASA 

2661 

NASA  . 

2662 

NASA 

2663 

011475 

24 

811475 

25 

NASA 

2664 

NASA 

2665 

NASA 

2666 

NASA 

2667 

NASA 

2668 

NASA 

2669 

NASA 

2670 

NASA. 

2671 

011275 

70 

011275 

71 

NASA 

2673 

NASA 
NASA 
NASA 
010675 
010  675 
010675 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 


267( 

267! 

2676 

34. 

35 

36 

2680. 

2681 

2682 

2683 

2684 

2685 
26'8.6 

2687 

2688 
2689, 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 


9-85 


4CQ 

405 

4ia 

415 

420 

425 

430 

435 

440 

445 

450 


PHIX<=PHIRX 

204 


ITER.EQ«0)  GO  TO  211 


08=PHIRX*.4 

IF  (08  .LT.  .05)  DB=.05 
C CALCULATE  F VALUES 

F(l)=(0PHI*0T/57.3+.D4*D)*FE/0Y 
F(2)=(DPHI*DT/57.3+.04*0>»FE/OZ 
F(3)=2.*.04*D»OPHI/57,3»FE/DX . 

F(4)=XMD7'OX 
F(5)=YMD/0Y 

FMIN=AMAX1(F(1) ,F(2) «F( 3),F (4) ,F(5) ) 
FMAX=(PDOTRX*XJ)/(2,*OI*DX) 

C lERR  IX  J MAX  RATE  ERROR  TOO  SMALL 

IF  (FMAX  ,LT,  2.+FMIN)  IERR=IERR+10 
FF=2.*FHIN 

IF  (FMAX  .LT.  FF)  FF=FMIN 
TDM=AHAX1(XMD,YMD) 

E=540.*TDM/(OX*FF)+. 12-08 
IF  ( E .LT,  0.)  £=0, 

C SELECT  EARTH  SENSOR  WITH 

IF  (IPIC(l)  .GT.  0)  GO  TO 
Jl==IOB(ll)+l 
GO  TO  206 
204  J1=IPIC(1) 

IF  (1PIC(2).G£.I0B(13)  .AND. 

206  J1E=I0B(12) 

E1=0ATAB(6»J1) 

11=108(10) 

PHIX=SQRT<OATAB(7,Jl)**2*DATAB(8,Jl)»*2)+08*OATAB(li,II)+E 
IF  (0ATAB(6,J1)  .GT.  OE)  60  TO  211 
IF  (PHIX  .GT.  PHIRX)  60  TO  211 
IGH0SE(4)=DATAB(1,J1) 

IPIC(1)=J1 

C EARTH  SENSOR  SET 

GO  TO  212 

211  J1=J1+1 
IPIC(2)=0 

IF  (J1  .LE.  JIE)  GO  TO  206 
C MINUS  ONE  FLAG  FOR  NOT  FOUND 

1CH0SE(4)=-1 
ICH0SE(5)=D 
RETURN 

C HERE  WHEN  ACCEPTABLE  EARTH  SENSOR  FOUND 

212  h=ZJ  * OMEGS  , , , . 

C SELECT  REACTION  WHEEL  WITH  MOMENTUM  GRTR  THAN  H 

J2=IPIC(2) 

IF  (J2  «GE.  ID8(13)  .AND.  ITER  .EQ.  0)  IPIC(2>=0 
IF  (IPIC(2)  .EQ.  0)  J2=I08(12)*1 
IF  (ITER  .EQ.  0 .AND.  IPIC(2)  .NE.  0)  J2=J2+1 
J2£=IDB(13) 

214  H1=0ATAB(6,J2) 

IF  ( HI  .GT.  H)  GO  TO  218 
J2=J2+1 

IF  ( J2  .LE.  J2E)  GO  TO  214 
IPIC(2)  = 0 
GO  TO  211 

C ACCEPTABLE  COMBINATION  FOUND 

218  ICH0SE(5)=0ATAa(l,J2) 

IPIC(2)=J2 


NASA 

2707 

NASA 

2708 

NASA 

2709 

NASA 

2710 

NASA 

2711 

NASA 

2712 

NASA 

2713 

NASA 

2714 

NASA 

2715 

NASA 

2716 

NASA 

2717 

NASA 

2718 

NASA 

2719 

NASA 

2720 

NASA 

2721 

NASA 

2722 

NASA 

2723 

NASA 

2724 

NASA 

2725 

NASA 

2726 

NASA 

2727 

NASA 

2728 

012475 

1 

NASA 

2729 

NASA 

2730 

NASA 

2731 

NASA 

2732 

NASA 

2733 

NASA 

2734 

NASA 

2735 

NASA 

2736. 

NASA 

£737 

NASA 

2738 

NASA 

2739 

NASA 

2740 

NASA 

2741 

NASA 

2742 

NASA 

27  43 

NASA 

2744 

NASA 

2745 

NASA 

2746 

NASA 

2747 

NASA 

2748 

NASA 

2749 

NASA 

2750 

NASA 

2751 

NASA 

2752 

NASA 

2753 

NASA 

2754 

NASA 

2755 

NASA 

2756 

NASA 

2757 

NASA 

2758 

NASA 

2759 

NASA 

2760 

NASA 

2761 

NASA 

2762 

HT=HT+DATAB(23,J2>‘*NCHCS£(51+DATAB(23,J1)»NCH0SE(4) 
V0L=V0L+0ATAB<24, J2)*NCHOSE(5)+0ATA8(24t J1»*NC 60S£(4) 

NASA 

2763 

NASA 

2764 

PL=PL+CATAa(16,J2)*NCHCSE(5)+DATAB(16,Jl)*NCH0SE(4) 

PL MIN=PLHIN+0ATABC18,JZ)*NCH0SE(5)+DATABCi8,Jl»*NCH0SE(4) 
XI=3700000O.*TPRIM»OX*|FF*OI>**2/<XJ^.4*PHIRX) 

NASA 

2765 

NASA 

2766 

NASA 

2767 

*+2./57.3*.04*D*0PHI*FE»TSMALL/OX 

NASA 

2768 

460 

♦+XNU»XJ*POOTO/ (57.3*0X) 

NASA 

2769 

•♦2.*XJ*PD0TX»XN/(57.3»0X> 

NASA 

2770 

* + (TAX*TAUXA  + 2.592E6*TGX*T  + TSX*TAUXS>  / OX 

YI=37000000.*TPRIH*OY* (FF*0I>**2/<VJ*.4*PHI«Y) 

011775 

13 

NASA 

2772 

*4<OPHI/57.3*DT  + .04*D)*FE*TSMALL/OY 

NASA 

2773 

46? 

*+XNU*YJ*PDOTO/(57.3*OY) 

NASA 

2774 

*+2.*YJ*P00TY*YN/(57.3*DY) 

NASA 

2775 

♦ + (TAY*TAUYA  * 2.592£6*TGY*T  + TSY*TAUYS)  / DY 

011775 

14 

ZI=«OPHI/57.3*DT+.04*D)*FE*TSHALL/OZ 

NASA 

2777 

•♦XNU*ZJ*POOTO/(57.3^DZ) 

NASA 

2778 

470 

*42 .*ZJ*PDOTZ*ZN/(57.3*DZ) 

NASA 

2779 

TI=XI ♦ YI 4Z I+FE  *TS  HALL 

NASA 

2780 

FC=14.1E-9*FF*DX*0I/(XJ*.4*PHIRX) 

NASA 

2781 

CLIFE  = 37. £6  * TPRIM  * FF  * DX  * 01  / (XJ*.4*PHIRX) 

011275 

72 

RETURN 

NASA 

2782 

475 

C 

3-AXIS  N CONFIG 

NASA 

2783 

C 

CHOSEN  ASS 

NASA 

2784 

C 

ATTITUDE  REF 

NASA 

2785 

c 

. VALVE 

NASA 

2786 

c 

ASC 

NASA 

2787 

480 

c 

GYROS 

NASA 

2788 

c 

EARTH  SENSOR 

NASA 

2789 

c 

INITIALIZE 

NASA 

2790 

300  IERR=0 

NASA 

2791 

11^108(14)41 

NASA 

2792 

485 

12=108(15)41 

NASA 

2793 

ICH0SE(1)=DATA8(1,I1) 

NASA 

2794 

ICH0SE(2)=DATAB(1»I2) 

NASA 

2795 

114=108(13)41 

NASA 

2796 

ICH0SE(3)=DA1AB (1,114) 

IF  (ITER  .GT.  C)  GO  TO  303 

NASA 

2797 

490 

NASA 

2798 

00  302  1=1,9 

NASA 

2799 

302  NCHOSE(I)=i 

NASA 

2800 

303  HT=WT4NCH0SE(1)*DATA8 (23,11) +NCHOSE( 2)*0ATA8(23,I2> 40ATAB <24, 114) * 

NASA 

2801 

* NCH0S£(3) 

NASA 

2802 

495 

CONVHT=OATAB(23*I1)*NCHOSE(1) 

V0L=V0L4NCH0SE(1) *0ATAB(24, ID 4NCH0SE(2) *OATAB (24, 12) 4 

NASA 

2803 

NASA 

2804 

♦ NGH0SE(3)*0ATAB(24,I14) 

FL=PL4NCH0SE<l)*DATAB(16,Il)4NCH0SE(2)*DATAa<16,I2)4NCH0SE(3)* 

NASA 

2805 

NASA 

2806 

* 0ATAB(16,I14) 

PLMIN=PLMIN4NCH0SE(1)*0ATAB(18,I1) 4NCH0SE(2)*DATAB(18,I2)4 

NASA 

2807 

500 

NASA 

2808 

* NCH0SE(3)*0ATAB(18,I14) 

NASA 

2809 

DO  301  1=6,9 

NASA 

2810 

301  ICHOSE(I)  = 0 

NASA 

2811 

c 

CALCULATE  F VALUES 

NASA 

2813 

5 05 

FC1)=(DPHI*OT/57.34,04*0)*FE/DY 

NASA 

2814 

F(2)=(0PHI*DT/57,34,Q4*D)*FE/0Z 

NASA 

2815 

F(3)=2.*.04*0*DPHI/57.3*FE/OX 

NASA 

.2816 

F(4)  = XMD/DX 

NASA 

2817 

F(5)=YM0/0Y 

NASA 

2818 

510 

F(6)=ZM0/0Z 

NASA 

2819 

i9- 


515 

520 

525 

530 

535 

540 

545 

550 

555 

560 

565 


FF)'  FF=FMIN 


. G5) 
.05) 
.05) 


DBX=.05 

08Y=.05 

OBZ^.05 


0)  GO  TO  304 


306 


308 


310 


314 


FHIN=AMAX1(FC1)sFC2», FI3)  ,FC4)f F(5) ,F(6)I 
F(7) =PDOTRX*XJ/(DI*DX) 

F(8)=PD0TRY*VJ/(DI»DY) 

F<9)=P00TRZ*ZJ/(DI»DZ) 

FMAX=AMAX1  (F(7), F< 81, F (9)) 

IERR=0 

I£RR  IX  » MAX  RATE  ERROR  TOO  SMALL 
IF  CFMAX  .LT.  2,»FMIN>  IERR=IERR+10 
FF=2.*FMIN 
IF  CFMAX  .LT. 

C8X=.4*PHIRX 
0BY=.4*PHIRY 
0BZ=.4*PHIRZ 
IF  COBX  .LT,  , 

IF  COSY  .LT. 

IF  (OBZ  .LT. 

D08X  = .1*DBX 
DDBY=.l+OBY 
COBZ=.l*DBZ 
Rl=.2*PDOTRX 
R2=.2»POOTRY 
R3=.2»PD0TRZ 
R=AMAX1(R1.R2,R3) 

SELECT  3 GYROS 
IF  CIPICU)  .GT, 

J1=I08C16)+1 
GO  TO  306 
J1=IPIC(1) 

IF  (IPICC2).GE.I0B(1B> 

J1E=I0B(17) 

GTEST=DATABC6, Jl) 

IF  CGTEST  .GT.  R)  GO  TO  308 
ICH0S£(4)=0ATABC1,J1) 

IPIC(1)=J1 
GYRO  SET 
I1=I0B<14)+1 

61=OATAB(8,I1)/(OATAB(11,I1)*OME60) 

62=COATA8<6,Il)*DATAB(10,Il)-DATAB<7,Il)*(OATABUl,Ii)+OMEGO)) 
♦ /{OMEGO*{OATAB(11.I1)+OME60)) 
63=OATABC10,I1)/<OMEGO*(OATAB(11,I1)+OHEGO)) 

GO  TO  310 
Jl=Ji+l 
IPIC(2)  = 0 

IF  (Jl  .LE.  JIE)  GO  TO  306 
MINUS  ONE  FLAG  FOR  NOT  FOUND 
ICH0SE(4)=-1 
ICHOS6(5)=0 
RETURN 

SELECT  EARTH  SENSOR 
J2=IPIC(2) 

1FU2  .GE«  IOB(18)  .AND.  ITER  .EQ*  0)  IPIC(2)=0 
IF  CIPICC2)  .EQ.  0)  J2=1DB(17)+1 
IF  (ITER  .EQ.  C .AND.  IPIC(2)  .NE.  0)  J2=J2+1 
J2£~I dd (18) 

PPHiN=dATAB(6. J2) »DAT Afi ( 6 , J2) *0 ATAB ( 6, I 1) /DAT AS ( 13, J2) ♦ 

» ATAN(0ATAB(13,J2)/0ATAB (9,11)) 
FO)€N=OATAB(6,J2)-»OATAB(6,J2)/DATAB(13t  J2)*.02e 


ANO.  ITER.EQ.O)  GO  TO  308 


NASA 

2820 

NASA 

2821 

NASA 

2822 

NASA 

2823 

NASA 

2624 

NASA 

2825 

NASA 

2826 

NASA 

2827 

NASA 

2828 

NASA 

2829 

NASA 

2830 

NASA 

2831 

NASA 

2832 

NASA 

2833 

NASA 

2834 

NASA 

2835 

NASA 

2836 

NASA 

2837 

NASA  . 

2838 

NASA 

2639 

NASA 

2840 

NASA 

2841 

NASA 

2842 

NASA 

2843 

NASA 

2844 

NASA 

2845 

NASA 

28  46 

NASA 

2847 

012475 

2 

NASA 

2648 

NASA 

2849 

NASA 

2650 

NASA 

2651 

NASA 

2852 

NASA 

2853 

NASA 

2654 

NASA 

2855 

NASA 

2856 

NASA 

2857 

NASA 

2858 

NASA 

2859 

NASA 

2860 

NASA 

2861 

NASA 

2862 

NASA 

28  6 3 

NASA 

2864 

NASA 

2865 

NASA 

2866 

NASA 

2867 

NASA 

2868 

NASA 

2669 

NASA 

2870 

NASA 

2871 

NASA 

2872 

NASA 

2873 

NASA 

2874 

NASA 

2875 

9-88 


570 
575 
5 50 
585 
590 
595 
600 
605 
610 
615 
620 


E=SQRT(DATA8  (7j J2 ) »*2 + DAT AB C 11  ,J2) ♦♦E) f SQRT(DATAB(9, J2)**2 
» +0ATABC10,J2)**2> 

Ey=0BY+SQRt(PPHIN+(DATA8(12,J2 )«OATA6 (6 , ID /DATA B (9, II > ) **2 
»+(E*OATAB(6,Il>/DATAB( ?,I1>)**2+AY*AY+(EP1/0ATAB(9,I1) )**Z 
•♦DOBY^ODBY) 

EX=OBX+SQRT(POMEN+(OATAB (12, J2)*G1)**2+£*E*G1*G1+AX*AX+00BY^ 
EZ=OBZ+SQRT((DATAB(7,J1)»OM£6O<‘G3)»»2+(OATA0(6,J1)  *G3)*»2 

♦ ♦DATAa(7.Jl>**2+(OATAB(6,Jl)/OME60)«*2+AZ*AZ+(DATAB(12,J2) 

♦ *G2) **2*DDBZ*0D8Z) 

IF  (EX  .LT.  FHIRX  .AND.  EY  .LT.  PHIRY  .AND.  £Z  ,LT.  PHIRZ) 

♦ GO  TO  318 
J2=J2+1 

IF  ( J2  .LE,  J2E)  GO  TO  314 
IPIC(2)  = 0 
GO  TO  308 


ACCEPTABLE  COMBINATION  FOUND 
3 ICHOSE(5)=DATAB(l,J2) 

IPIC(2)=J2 

♦>T=HT+DATAB(23,J2>*NCH0SE(5)+DATAB(23,Ji)*NCH0SE(4) 
VOL=VOL+OATAB(24iJ2»*NCHOS£(5)+OATAB(24.Jl»*NCHOSE(4> 
PL=PL+CATAB(16iJ2)^NCH0SE(5>+DATA8(16,Jil»NCH0SE(4> 
RLMIN=PLHIN+EATAB(18,  J2)*NCHCSE(5)  ^-DATAB  (18  , J1  )»NCHOSE  (4» 
>I=3700aC00.*TPRIM+DX*(FF»OI)»*2/(XJ*O8X) 

*♦2 ./57.3*.fl4*D*DPHI*F£*TSHALL/CX 
♦♦XNU*XJ*  POOTO/(57.3*DX) 

*fr2.*XJ*PD0TX*XN/(57.3*DX) 

♦ + (TAX*TAUXA  + 2. 592E6*TGX*T  + TSX*TAUXS)  / OX 
YI-37000fl(}0.*TPRIM*OV*(FF^OI)**2/(YJ»DaY) 

»*(DPHI/57.3*DT+*D4*D) ♦F£«TSHALL/OY 
»«-XNU*YJ*PDOTO/(57.3*OY) 

*+2  .*YJ*PD0TY»YN/(57.3*DY) 

• ♦ (TAY*TAUYA  + 2. 592£6*T6r*T  + TSY*TAUYS>  / DY 
ZI=37000000.*TPRIM*OZ*(FF*DI)»^2/(ZJ*OBZ) 

*+(DPHI/57,3*DT+.Q4*D)*FE*TSMALL/DZ 

*+Xhfti»ZJ*POOTO/(57.3*OZ> 

♦+2.*ZJ*PDOTZ*ZN/(57,3*0Z) 

* ♦ (TAZfTAUZA  ♦ 2.592E6^TGZ*T  +,  TSZ*TAUZS)  / OZ 
TI=XI+YI+ZI+FE*TSMALL  . 

FC=14.1£-9*FF*DX*0I/(XJ*.4»PHIRX) 

CLIFE  = 37. £6  * TPRIM  » FF  * DX  » 01  / (XJ*.4^»PHIRX) 

RETURN 

CONFIGURATION  4 
3 lERR^O 

QJl=XJ*P00TX/57.3 

QJ2=YJ*P00TY/57.3 

QJ3=ZJ*P00TZ/57.3 

HNAN=AMAX1(QJ1,QJ2,QJ3) 

TMD=AMAXl(XM02j,YHD2,ZM02) 

HR£Q=HMAN+864O0.^TL*TMD 

TR£Q=HMAN/TACCEL*TMD 

TEST  IF  ONLY  3-AXIS  HHEELS  OKAY  . . 

FOOTM=AMAX1(POOTXj,POOTY;POOTZ) 
FDOTRM=AMINl(PDOTRX,POOTRYiPllOTRZ) 

IF  (TREQ/HREQ  .GE.  .02,  .AND.  . C000833»POOTM  ,LT,  PDOTRM)  GO  TO 
DO  402  1=1,9 
2 ICHOSE(I)=-l 

TEST  IF  3-AXIS' ACCEPTABLE 


NASA 

2876 

NASA 

2877 

NASA 

2878 

NASA 

2879 

NASA 

2680 

X)  NASA 

2681 

NASA 

2882 

NASA 

2883- 

NASA 

2864 

NASA 

2885 

NASA 

2886 

NASA 

2887 

NASA 

2668 

NASA 

2869 

NASA 

2890 

NASA 

2891 

NASA 

2892 

NASA 

2893 

NASA 

2894 

NASA 

2895 

NASA 

2896 

NASA 

2897 

NASA 

2698 

NASA 

2899 

NASA 

2900 

NASA 

2901 

011775 

15 

NASA 

2903 

NASA 

2904 

NASA 

2905 

NASA 

2906 

011775 

16 

NASA 

2906 

NASA 

2909 

NASA 

2910 

NASA 

2911 

011775 

17 

NASA 

2913 

NASA 

2914 

011275 

. 73 

NASA 

2915 

NASA 

2916 

NASA 

2917 

NASA 

2918 

NASA 

2919 

NASA 

2920 

NASA 

2921 

NASA 

2922 

NASA 

2923 

NASA 

2924 

NASA 

2925 

NASA 

2926 

• NASA 

2927 

403  NASA  . . 

2928 

NASA 

2929 

NASA 

2930 

NASA 

2931 

9-89 


6 25 
630 
635 
6^0 
6i»5 
650 
655 
660 
665 
670 
675 
680 


C IE«R  * IXX  MEANS  3-AXIS  WHEELS  ACCEPTASLE  NASA  2932 

<i03  IF  (TREQ/HREQ  .LT.  .11  IEFR=100  ^ NASA  2933 

C lERR  « IXXX  MEANS  DOUBLE  GIMBAL  CMGtS  ACCEPTABLE  NASA  2934 

IF  (TACCEL  .LT.  20. > IERR=IERR+10CO  NASA  2935 

HL=HMAN+TMO*TL  NASA  2936 

HS=AMIN1(QJ1,QJ2,QJ3)  NASA  2937 

HS=HS+TMO^TL  NASA  2938 

C SET  FIXED  EQUIPMENT*  ELECTRONICS  RiOCESSOR, VALVE  DRIVER,  NASA  2939 

C SENSOR(SUN  OR  HCRIZCN)  NASA  2940 

I1=I08{18I+1  NASA  2941 

12=108(15)+!  NASA  2942 

IF  (ISAT  .EQ.  1)  I3=I0B(17)+1  NASA  2943 

IF  (ISAT  .GT.  1)  I3=I0E(8)+1  NASA  2944 

ICH0SE(1>=0ATAB(1,I1)  NASA  2945 

ICH0SE(2)=DATAB(1,I2)  NASA  2946 

ICH0S£(3)=0ATAe(l,I3)  NASA  2947 

ICH0SE(7)=fi  NASA  2948 

ICHOSE(8)=0  NASA  2949 

ICHOSE(9)=0  NASA  2950 

IF  (ITER  cGT.  0)  GO  TO  407  NASA  2951 

GO  405  1=1,9  NASA  2952 

405  NCHOS£(I)=i  NASA  2953 

407  HT=HT+NCH0SE(1)*DATAB<23,U)+NCH0SE(2)*0ATA8(23,I2) +DATAB(23,I3)  NASA  295.4 

♦♦NCH0SE(3)  NASA  2955 

V0L=V0L  + NCH0SE(1)*0ATAB(24,I1)  + NCH0SE(2)*DATAB(24,I2) +0ATAE(24 , 13)  NASA  2956 

<i'»NCH0SE(3)  NASA  2957 

PL=PL+NCH0SE(1)*DATAB<16,I1) +NCHOSE(2)*DATA8(16, 12) +DATAB (16, 13)  NASA  2958 

**NCH0SE(3)  NASA  2959 

PLMIN=PLMIN+NCH0SE(l)*DATAfi(18,Il)+NCH0SE(2)*0ATAB(18, 12) + NASA  2960 

0ATAB(18,I3)*NCH0SE(3)  NASA  2961 

C SELECT  CMG  ' NASA  2962 

GAMMA=ATAN(HS*(XNNN-2.)/(HL*XNNN))  NASA  2963 

H=HS/ (XNNN+SIN (GAMMA)  ) NASA  , 2964 

IF  (IPIC(I)  .GT.  0)  JlilFIC(l)  NASA  2965 

IF  (IPlC(l)  .EC.  0)  J1=IDB(19)+1  NASA  2966 

IF  (IPIC(2).GE.ICB(17)  .AND. IFIC(3).GE. 108(21). AND. ITER. EQ.O)  012475  3 

* GO  TO  440  012475  4 

C RETURNS  HERE  TO  TEST  NEW  CMG  NASA  2967 

410  IF  (0ATAB(6,J1)  .LT.  H)  GO  TO  414  NASA  2968 

SOOTH=2.+H/UACCEL*DATAa  (6,J1)  ) NASA  2969 

TMAX=0ATA8 (6, Jl)^P00TM/5 7.3  NASA  2970 

IF  (SOOTH  .lI.  0ATAB(7,J1)  .AND.  TMAX  .LE.  0ATAB(6,  Jl)  )GO  TO  417  NASA  29^ 

414  J1=J1+1  NASA  2972 

IF  (Jl  .LE.  108(20))  GO  TO  410  NASA  2973 

ICH0SE(4)=-1  NASA  2974 

1CHOSE(5)=0  NASA  2975 

1CHOSE(6)=0  NASA  2976 

return  NASA  2977 

C CMG  SELECTED  NASA  2978 

417  ICH0SE(4)=DATA8(1,J1)  NASA  2979 

NCH0SE(4)=XNNN  . NASA  2980 

XKK=0ATAB(7,J1)*PD0TH757.3  ^ NASA  2981 

H=-32.  + (.068+.29+XKK)  + (DATAB(6,Jl)+960.  ) NASA  2982 

P=(. 0103+. 0235*XKK)*(GATAB(6|J1) +1430.)  NASA  2963 

V=7.45+(.00265-.0062«XKK)’(OATAB(6,J1)-1720.)  NASA  2984 

OATAB (23,J1)=W  NASA  2985 

DATAB(24,J1)=V  NASA  2986 


9-90 


665 

590 

595 

700 

705 

710 

715 

720 

725 

730 

735 


420 


DATAB (18,J1)=P 
GYRO  NEXT 

IF  <IPIC(2)  .GT.  0)  J2=IFIC(2) 

IF  (IPIC(2»  .EQ.  C)  J2=IC8(16)+1 

IF  (IPIC(3).GE.I08(21>  .AND.  ITER«EQ.O)  GO  TO  440 
ICH0SE(5)=DATA8(1. J2)  I 

SELECT  STAR  SENSOR 
FHIR=AHIN1(PHIRX,PHIRY,PHIRZ» 

TSMAX=.3»PHIR 

J3=IPIC<3)  ^ 

IF  <J3  .GE.  IDB(21)  .AND,  ITIR  , EQ.  0)  IPIC(3)=0 
■ (IPIC(3)  ,EQ,  0)  J3=IOB(20)+1 


422 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


(ITER  .EQ.  0 .AND. 
(0ATAB(6tJ3)  .GT. 
(0ATAB(6fJ3>  .EQ, 
(0ATAB(6«J3)  .EQ. 
(0ATAB<6,U3)  ,EQ, 
(0ATAB(6fJ3)  .GT. 


1PIG(3)  .NE.  0)  J3=J3«1 

1.  .AND.  PDOTST  .GT.  2.)  GO  TO  440 

2.  .AND.  PHIFOtf  «GT.  30.)  GO  TO  440 
1.  .AND.  POOTAV  .LE.  .016)  GO  TO  440 
1.  .AND.  THOLD  .GT.  TSHAX ) GO  TO  440 
1.)  GO  TO  424 


,LT.  A.)  60  TO  440 


424 

426 

440 


(DATABC9,J3)«.451  . 

XNK=ALOG10  C-4.+.451*0ATAB(9.J3>) 
TSC=57.3/(XNH»DATAB(8,J3)*PD0TM) 

OPHIAtf=PDOTM»TSC 
PHIEB=CATAB(6, J2) *TSC 
FHIESF=DATA8(7,J2)*0PHIAV 

FHIE=SCIRT(DATAB(7,J3)**2+(.OOOOe33*POOTM)»*2+PHlEB*PHIEB+ 
♦ PHIESF*PHIESF) 

GO  TO  426 

PHIE=SQRT(OATA8(7,J3»**2+(.0000833*POOTH)**2) 

IF  (PHIE  .LT.  PHIR)  GO  TO  450 
J3=J3*1 

IF  (J3  ,LE.  IDB(21>)  GO  TO  422 
IPIC(3)=D 
J3  = 108(20)  + 1 
J2=J2+1 


106(17))  GO 


TO  420 


IF  (J2  ,LE. 

IPIC(2)  = 0 
J2=IQB(16) tl 
GO  TO  414 
ACCEPTABLE  COMBINATION  FOUND 
450  ICH0SE(6)=DATA8(1,J3) 

IPIC(1)=J1 

IPIC(2)=J2 

IPIC(3)=J3 

)T=HT+H*XNNN+NCHOS£(5)*DATAB(23.J2)+NCHOSE(6)*OATAB(23.J3) 
VOL=VOL+V«XNNN+NCHOSE(5)»OATAe(24iJ2)4NCHOS£(6)«OATAB(24tJ3) 
PL=PLf P*XNNN4NCH0SE(5)*0ATAB(16,J2)+NCH0SE(6y*0ATAB(16.J3) 
PLHIN=PLMIN40ATA8(18,  J1)4XNNN4MCHOSE(5)*OATA8(18,J2)4NCHOSE(6)* 

* 0ATABM8,J3) 

NON  THRUST  AND  IMPULSE 
F(l)=(DPHI*DT/57.3+.04*D)4FE/DY 
F(2)=(DPHI*OT/57,3+.04*0)»FE/02 
F.(3)=2./57.3*,04*0*OPHI*FE/DX, 

FF=AMAX1(F(1),F(2),F(3)) 

TI=(F(1)+F(2)+F(3))*TSMALL 

* +XNU»POOTO/57,3*{XJ/OX4YJ/DY+ZJ/OZ) 

♦ + (TAX*TAUXA  ♦ 2.592E6*TGX*T  + TSKfTAUXS) 

♦ + (TAY*TAUYA  ♦ 2. 592E6»TGY*T  + TSY»TAUYS) 


/ 

/ 


DX 

DY 


NASA 

2967 

NASA 

2988 

NASA 

2969 

NASA 

2990 

012775 

23 

NASA 

2991 

NASA 

2992 

NASA 

2993 

NASA 

2994 

NASA 

2995 

NASA 

2996 

. NASA 

2997 

NASA 

2998 

NASA 

2999 

NASA 

3000 

NASA 

3001 

NASA- 

3002 

NASA 

3003 

NASA 

3004 

NASA 

3005 

NASA 

3006 

' NASA 

3007 

NASA 

3003 

NASA 

3009 

NASA 

3010 

NASA 

3011 

NASA 

3012 

NASA 

3013 

NASA 

3014 

NASA 

3015 

NASA 

3016 

NASA 

3017 

012775 

24 

NASA 

3018 

NASA 

3019 

NASA 

3020 

NASA 

3021 

NASA 

3022 

NASA 

3023 

NASA 

3024 

NASA 

3025 

NASA 

3026 

NASA  ' 

3027 

NASA 

3028 

NASA 

3029 

NASA- 

3030 

NASA 

3031 

NASA' 

3032 

NASA 

3033 

NASA 

3034 

NASA 

30  35 

■ NASA 

3036 

NASA 

3037 

NASA 

3036 

NASA 

3039 

011775 

18 

011775 

19 

iio  Aj^Tiaionao^dai^  i6-6 


7A0 

7h5 

750 

755 

760 

765 

770 

775 

780 

785 

790 

795 


♦ *■  (TAZ*TAUZA  + 2.592£6*TGZ*T  ♦ TSZ^TAUZS)  / DZ 

* +FE»TSHALL 

FG=FF*DX*0I/<XJ*.A*PHIRX>»1«k.1£»9 

CLIFE  =s  37. E6  » TPRIM  • FF  • OX  * DI  / < XJ* ,4*PHIRX) 
RETURN 

C CONFIGURATION  5 

C SELECT  FIXED  EQUIPMENT 

580  Il=I0BC15}+i 
12=108(21)  +1 
ICH0SE(1)=0ATA8(1,I1) 

ICHDSE(2)=DATA8(1,I2) 

00  502  1=5,9 
502  ICHOS£a>=0 

IF  (ITER  .6T.  0)  GO  TO  505 
CO  504  1=1,9 

504  NCHOSEa»=l 

505  ■ ' 

FL=PL+NGH05E  + RUriUSt  I g » UM  I «n  %i  o , iC  i 

FLMIN=PLHIN+NCH0SE(l>«0ATAfl{id,Il»+NCH0S£(2»*DATAB(18,I2) 
lERR^fl 

EB£AM=AMIN1{PHIRX,PHIR¥) 

0B=,4*EBEAM 

IF  (08  .LT.  .05)  0B=.Q5 
EAR=ES£AK*E8£AM-EA»EA^^^^^  ^ 

EHS=CEAR“(EANT*PHIRZ)»^2)*.5 
IF  (EHS  .LT,  0.)  EHS=0. 

EHS=SQRT  (EHS) 

IF  (IPIC(I)  .GT.  0)  Jl=IPIC(i)  ^ 

IF  (IPIC(l)  .EQ.  0)  J1=I01(17) ^ 

IF  (IPIC  (2).  GE.I08U3)  .AND.  ITER.EQ.O)  GO  TO  510  ^ 

508  e=:SQRT  (DATA8<6,  J1)**2  + DATA8  (7,  J1)**2+0ATA8(8,J1)  *»’*2.+ 

• OArAB(li,3i)S52);SQRT(OATAB{4,Jl)**2+QATAB(i8,Jl)**2) 

IF  (E  .LT.  EHS)  60  TO  512 

510  Jl— Jl+1 

IF  CJl  .L£.  108(18))  GO  TO  508 
ICH0SE{3)=“1 
ICHOSE(4)=0 


512 


515 


520 


RETURN 
J2=IPIC(2) 
IF  (J2  .GE, 
IF  (IPIC(2) 


0)  IPIC(2)=0 


108(13)  ,ANO.  ITER  .EQ. 

.EQ.  8)  J2=IC8(12)+1 

IF  (ITER  .EQ.  C .AND.  1PIC(2»  .GT.  0)J2=J2+ 
F=57.3*ZMO»A8S(EANT)/(OMEGO»SQRTCEAR-2.*E*E 
IF  (0AIA8(6,J2)  .GE.  H)  CO  TO  520 
J2=J2+1 

IF  (J2  .LE.  108(13)1  GO  TO  515 

1PIC(2)=0 

GO  TO  .510 

1CH0S£(3)=DATAB(1,J1) 

ICH0SE(4)=DATA8(1,J2) 

1PIC(1)=J1  / 

IPIC(2)=J2 

IP  TP  { ' 

^T=WT♦NCHOSE(3)*DATABCZ3,Jl>^^NCHgsE(4)/0ATAB<^3,J^) 
OOL=»(OL+NCHOSE(3)*QATAe(24,Jl)  ^(^CHOSt  (4)  *0 ATAB  (24*  J2) 

FL=PL  + NCHOSE(3)»O  ATAB(16,  Jl)ff<CH0SE(4)*0ATAB(16,  J2) 


011775 

20 

NASA 

3841 

NASA 

3042 

011275 

74 

NASA 

3043 

NASA 

3044 

NASA 

3045 

NASA 

3046 

NASA 

3047 

NASA 

3043 

NASA 

3049 

NASA 

3051 

NASA 

3852 

NASA 

3053 

NASA 

3054 

NASA 

30  55 

NASA 

3056 

NASA 

3057 

NASA 

3053 

NASA 

3059 

NASA 

3060 

NASA 

3061 

NASA 

30  62 

NASA 

3063 

NASA 

3064 

NASA 

3065 

NASA 

3066 

NASA 

3067 

NASA 

3063 

NASA 

3069 

012475 

5 

NASA 

3078 

NASA 

3071 

NASA 

3072 

NASA 

3073 

NASA 

3074 

NASA 

30  75 

NASA 

3076 

NASA 

3077 

NASA 

3078 

NASA 

3079 

NASA 

3088 

NASA 

3081 

NASA 

3082 

NASA 

■ 3083 

NASA 

30  84 

NASA 

3085 

NASA 

30  86 

NASA 

3087 

NASA 

3088 

NASA 

3089 

NASA 

3090 

NASA 

3091 

NASA 

3092 

NASA 

3093 

NASA 

3094 

NASA 

3095 

9-92 


800 

80S 

610 

815 


FLMIN=PLMIN+NCH0SE(3)*CATAB<18,J1)+NCH0S£(4)*0ATAB<18»J2) 
OX  = 0.5  ♦ 0 * COStALPHA/57«3» 

FMAX=DB»DATAe(6»J2)*SQRT (XJ/ZJ)/ (Dl»OX) 

OZ  = 0.5  * 0 ♦ SlN(ALPHA/57.3) 

DY=.5*D 

F<l)=<OPHI/57.3*DT+.04*O)*FEZOY 
F(2»=(DPHI/57.3*OT+.04*Dl*FE/DZ 
F(31=2./57.3*.04*D*OPHI*FE/OX 
FMIN=AMAX1 (F(l) ,F (2) , F (3» ) 

FF=2.*FMIN 
IF  (FF  .LT. 


(PHIRX/57.3)  ♦ TAN(Al.PHA/57.3) 


FMIN)  FF=F«IN 
DELH  - * 0ATAB(6,J2)  * 

* /COS  (ALPHA/57,  3) 

TI  = (F<l)+F(2)+F(3))  * TSHALL 

* ♦ (TAX*TAUXA+2.592E6*TGX*T+TSX*TAUXS»/(£TA*0ELH) 

* ♦ XNU  * PDOTO/57.3  • CXJ/OX  + YJ/DY  + ZJ/CZ) 

* ♦ (TAY*TAUYA  * 2. S92E6*TGY*T  ♦ TSY^T AUYSI /OY 

* + FE  ♦ TSHALL 

CLIFE  = (TI  - FE  * TSMALL»  / (FF  * DI  • 3.0) 

FC  = 1.3689E-12  ♦ CLIFE  /T 

RETURN 

END 


♦FF  *01 


NASA 

3096 

011775 

21 

NASA 

3098 

011775 

22 

NASA 

3100 

NASA 

3101 

NASA 

3102 

NASA 

3103 

NASA 

3104 

NASA 

3105 

NASA 

3106 

012075 

2 

012075 

3 

012075 

5 

031575 

1 

012075 

7 

012075 

8 

012  075 

9 

031575 

2 

012075 

10 

NASA 

3113 

NASA 

3114 

SUBROUTINE  : 

STRUCT  76/76  OPT=2 

- 

FTN  4.2+383 

C3/27/75 

21.38.43 

SUBROUTINE 

STRUCT  (NCCNF) 

NASA 

3115 

CIHENSION 

NCONF(6) 

NASA 

3116 

COHMON  /USER9/  CA« 

CE 

0 22575 

421 

C 

022575 

422 

5 

COMMON  /USERI/  APOGEE, 

COMRAT, 

DIAMAX, 

EEQWT(9», 

EPME, 

022575 

423 

1 

EQNIHT, 

EQMIXL, 

EQMIYL, 

EQMIZL, 

EQM2HT, 

022575 

424 

2 

EQM2XL, 

EQM2YL, 

EQM2ZL, 

FE, 

IA6NCY, 

022575 

425 

3 IDEBUG,  ISATOfi, 

M312SH, 

OPTEMP, 

ORBING, 

PERIGE, 

0 22575 

426 

10 

4 MICRO,  RELHE, 

SP£C<6» , 

SPECl, 

XOUMl, 

. XC6SA1, 

022575 

427 

5 

XMERs 

XHEU 

0 22575 

428 

C 

0 22575 

429 

COMMON  /BTHN/  ACSSN, 

ACSHP, 

ALT, 

AREA, 

BATCAP, 

022575 

430 

1 

BITRAT(2J, 

CLIFE, 

CONWHT, 

SATOAM, 

DT, 

022575 

431 

15 

2 

OX, 

OY, 

DZ, 

EQBLG, 

EQ8SI0, 

022575 

432 

3 

FC, 

, FF, 

HARNHT, 

HPT, 

HTPIPE, 

0 22575 

433 

4 

HTPT, 

HTRPR8, 

HTRPHR, 

I8TLOC, 

022575 

434 

5 

LMBOD, 

NC, 
PL  MIN, 

OMEGS, 

PASSTR, 

PJ, 

0 22575 

435 

6 

PL, 

POCNWT, 

RAOA, 

RAOAB, 

022575 

436 

20 

' * 

7 

RAT, 

RJ, 

SA80LG, 

SATL6, 

SATTHT, 

0 22575 

437 

8 

SATHT, 

SATXCG, 

SATYCG, 

SATZCG, 

SAIXL, 

022575 

438 

9 

SAIYL, 

SAIZL, 

SIDE, 

SYSLB, 

THCMHT, 

022575 

439 

A 

THRUST(2», 

TI, 

TNKWT, 

TPRIM, 

VB, 

022575 

440 

B 

VCHP, 

VOL, 

SOARWT, 

WB, 

WBT, 

0 22575 

441 

sO 

1 

25 

. C 

WT, 

XJ, 

XNZERO, 

YJ, 

ZJ 

022575 

442 

C 

0 22575 

443 

nO 

COMMON/PRTCOM/  ACCRCY, 

AM, 

AN, 

BF, 

BS, 

022575 

m 

1 

CDPIC7,2», 
ORIHT , 

CISTAR, 

CTOT, 

ODTE, 

DE, 

0 22575 

2 

EQ8STR, 

FEEINV, 

FEEOPS, 

FEES, 

022575 

446 

3 

6SE, 

IREL, 

IT RUNG, 

MMOOLO, 

NAM£(3,60}, 

0 22575 

447 

30 

4 

OPS, 

PAYINV, 

PAYQULi 

PAYR, 

PE, 

022575 

448 

5 

PMP, 

PHR, 

P0NER(6), 

PU, 

PWR(60)  , 

0 22575 

449 

6 

QCP, 

OCR, 

R0L0(6Q}  , 

SABMHT, 

SATADP, 

0 22575 

450 

7 

SATINY, 

SATR, 

SHIP, 

SEIR, 

SKTAUI6) , 

022575 

45,1 

8 

SSREL(6), 

SU8E(7), 

SUBT(7) , 

SUBUE(7) , 

SU6UP(7), 

022575 

452 

35 

9 

TA, 

TAU(6,6}, 

TOOLR, 

TB, 

TC, 

TE, 

0 22575 

' 453 

A 

TF, 

TOOLU, 

TOTOPS, 

TRUNC, 

022575 

454 

B 

TS, 

T, 

VOLUME (6} , 

VQU60I, 

WEIGHT (6) , 

022575 

455 

C 

XLTOT, 

XHEH, 

XMEINV, 

XMEL, 

XHEVL, 

022575 

456 

0 

XHEM, 

XHEHT, 

• XVEST 

022575 

457 

<t0 

DATA  E,XNU 

,SIGY,PI/1.E7,. 

33, 3. £4, 3 

.1416/ 

NASA 

3131 

T6=  0. 

, 

NASA 

3132 

XXNU=  lo  - 

XNU**2 

NASA 

3133 

VARAY=0. 

NASA 

3134 

ICHECK=  1 

NASA 

3135 

45 

IF((NC0NF(5).EC.1.0R.NC0NF(5)«EQ,3 

•OR.NCCNF(5l .EQ.5) .AND. 

NASA 

3136 

«XCGSA1.EQ. 

2)  ICHECK=  2 

NASA 

3137 

c 

1CHECK=  2 

MEANS  THAT  SOLAR  ARRAYS 

ARE  PAOOLES 

AND  MOUNTED  AT 

NASA 

3138 

c 

CENTER  OF 

VEHICLE.  ICHECK 

= 1 MEANS 

OTHERWISE. 

NASA 

3139 

c 

NASA 

3140 

50 

XL=  EQBLG 

NASA 

3141 

IFdCHECK* 

EQ.2)  XL=  .5*ECBL6 

GO  TO  2 

NASA 

3142 

IF(NC0NF(5) ,NE.1.AND.NC0NF(5».NE.3 

.AN0.NC0NF(5).NE.5) 

NASA 

3143 

c 

NASA 

3144 

c 

SOLAR  ARRAYS  ARE  PADDLES 

NASA 

3145 

115 

120 

125 

130 

135 

sO 

^ 1^0 

un 

145 

150 

155 

160 

165 


C 

C 

C 

C 

C 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


EQUIVALENT  THICKNESS  OF  STIFFENED  CYLINDER 
T8AR=  .267*TK 

SIZING  OF  SKIN-STRINGER  ASSEMBLY 

T=  «44*TBAR 
TS=  l.g*T 

BS=  .64*TS*SCRT(E*TBAR/(XXNU*XN) ) 

B=  1.49^8S 

N=  li  + 2.*PI*RR78 

AN=  N 

B=  2.*PI*RR/AN 
ALPHAS  ,745/XXNU*^.25 

SIZING  OF  CYLINDER  FRAMES 

A=  E*ALPHA»*2*T8AR**2/XN 

RHOF=  .0S64*(RR**2/A)* (XN*ALPHA**2/ (E^A ) )»* , 25 
AF=  . Ofl0785*XN*RR**4/(E*RHOF**2*A) 

8F=  3.464»RHCF 
TFs  AF/BF 
Ms  1.  ♦ XL/A 
AMs  M 
As  XL/AM 

SIZING  OF  END  COVERS 

TC=  .SBZ^SQRKCA^SATWT/SIGY) 

TA=  TC 
XL  Os  RR 

VOLUME  OF  EQUIPMENT  BAY  STRUCTURE 

V£QsEQBLG'*^<TMTS*BS/8)  ♦fTF*BF/AI» 
IF(IGHECK.EQ.l)  GO  TO  4 

MID-SECTION  BULKHEAD  IS  REQUIRED 

HL=  .455*CA*SATHT/XLD»*2 
TBs, 8 5 9*  XL  0*  SORT  t WL/S 1 6Y I 
VEQs2.*VEQ+0.219*TB*RR 
CONTINUE' 


TOTAL  STRUCTURE  HEIGHT 
VEQ=VEQ+RR*TC. 

STRMATs2.*PI*0<.l*  (RR*WEQ+4.^ 

RETURN 

CONTINUE 

IF(NC0NFC6) .NE.2)  RETURN 
Hs  ,707*SATDAM 


VAFAY) 


NASA 

3203 

NASA 

3204 

NASA 

3205 

NASA 

3206 

NASA 

3207 

NASA 

3208 

NASA 

3209 

NASA 

3210 

NASA 

3211 

NASA 

3212 

NASA 

3213 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

NASA 

3221 

NASA 

3222 

NASA 

3223 

NASA 

3224 

NASA 

3225 

NASA 

3226 

NASA 

3227 

NASA 

3228 

NASA 

3229 

NASA 

3230 

NASA 

3231 

NASA 

3232 

NASA 

3233 

NASA 

3234 

NASA 

3235 

NASA 

3236 

NASA 

3237 

NASA 

3238 

NASA 

3239 

NASA 

3240 

NASA 

3241 

NASA 

3242 

NASA 

3243 

NASA 

3244 

NASA 

3245 

NASA 

3246 

NASA 

3247 

NASA 

3248 

NASA 

3249 

NASA 

3250 

NASA 

3251 

NASA 

3262 

NASA 

3253 

NASA 

3254 

NASA 

3255 

NASA 

3256 

NASA 

3257 

NASA 

3258 

NASA 

3259 

170 

175 

leo 

165 

190 

1 

vO 

O' 

200 

205 

210 

215 

220 

225 


c 

NASA 

32E0 

c 

EQUIVALENT  AXIAL  LOAD 

NASA 

3261 

c 

NASA 

3262 

XN=  .25»P/W  + .75*XM/H**2 

NASA 

3263 

c 

NASA 

3264 

c 

SIZING  OF  EQUIVALENT  MONOCOQUE  BOX 

NASA 

3265 

c 

NASA 

3266 

IF(XL/W.LE..5)  TM=  1.  068*(XXNU’^XN*XL»XL/E)  *».3333 

NASA 

3267 

IF(XL/H.  6T..5)  TM=  . t72^^  (XXNU*XN*H»W/E )**.  3333 

NASA 

3268 

c 

NASA 

32  69 

c 

EQUIVALENT  THICKNESS  OF  STIFFENED  BOX 

NASA 

3270 

c 

NASA 

3271 

T8AR=  .2  67»TM 

NASA 

3272 

c 

NASA 

3273 

c 

SIZING  OF  SKIN  STRINGER  ASSEH8LV 

NASA 

3274 

c 

NASA 

32  75 

T=  ,i»i»*TBAR 

NASA 

3276 

TS=  1.9*T 

NASA 

3277 

BS=  .64»TS*SCRT(E*TBAR/CXXNU*XN») 

NASA 

3278 

B=  1.49»BS 

NASA 

3279 

N=  1.  ♦ H/B 

NASA 

3280 

N=  4*N 

NASA 

3281 

AN=  N 

NASA 

3282 

B=  M/AN 

NASA 

3283 

ALPHA=  .745/XXNU**.25 

NASA 

3284 

c 

NASA 

3285 

c 

SIZING  OF  FRAMES 

NASA 

3286 

c 

NASA 

3267 

A=  E*ALPHA**2»TBAR**2/XN 

NASA 

3283 

RHOF=  .405*(H*»2/A»*IXN*ALPHA*^2/CE*A))**.  25 

NASA 

3289 

AF=  .041*XN*H**4/<E*RHOF**2*A) 

NASA 

3290 

EF=  3,464*RH0F 

NASA 

3291 

TF=  AF/8F 

NASA 

3292 

Ms  1 . + XL/A 

NASA  . 

3293 

AM=  M 

NASA 

3294 

A=  XL/AH 

NASA 

3295 

c 

NASA 

3296 

c 

SIZING  OF  END  COVERS 

NASA 

3297 

c 

NASA 

3298 

TC=  . 3d3*SQRT{CA*SATHT/SlGV» 

NASA 

3299 

TA=  TC 

NASA 

3300 

XLD=  .5*H 

NASA 

3301 

c 

NASA 

3302 

c 

VOLUME  OF  EQUIPMENT  BAY  STRUCTURE 

NASA 

3303 

c 

NASA 

3304 

VEQ=2.*(T+(TS»BS/BI+(TF*BF/A)) 

NASA 

3305 

IF(ICHECK.EQ.l)  GO  TO '6 

NASA 

3306 

c 

NASA 

3307 

c 

MID-SECTION  BULKHEAD  IS  REQl'TPPn 

NASA 

3308 

c 

NASA 

3309 

»L=  .455*CA*SATHT/XLD*»2 

NASA 

3310 

TB=. 859*XLD*SQRT  C HL/SIGY) 

NASA 

3311 

VEQ=2.^VEQ+0.219*H*TB 

NASA 

3312 

c 

NASA 

3313 

6 CONTINUE 

NASA 

3314 

c 

NASA 

3315 

c • 

TOTAL  STRUCTURAL  HEIGHT 

NASA 

3316 

9-97 


c 

NASA 

3317 

VE0=2.*W*EQ8LG*VEQ+2.*TC«(M**2) 

NASA 

3318 

STRHAT=0.1*(VEQ+8.*PI*VAFAYJ 

NASA 

3319 

c 

NASA 

3320 

RETURN 

NASA 

3321 

END 

NASA 

3322 

SUBROUTINE  VESIZE 


76/76  0PT=2 


FTN  4.2*383 


03/27/75 


21.38,45 


SUBROUTINE  VES IZE (lERR «NCONF« I CHOSE) 

NASA 

2323 

CIHENSION  NCaNF(6)»EESID 

(c>,EEYCG(9>.£EZCG(9) 

,EEINX(9) 

,EEINY(9) , 

NASA 

2324 

* EEINZ(9I,EEXCG<9) 

NASA 

3325 

COWON 

/USERS/ 

CGEEX(9) , 

EELOCO), 

EEQVU9) , 

EMIYCG, 

EMiZCG, 

022575 

458 

5 

1 

EQPF, 

EM2YCG, 

EM2ZCG, 

ISBOFG, 

NUMEEQ, 

XCGSA3 

022575 

459 

C 

022575 

460 

CONHON 

/USERI/ 

APOGEE, 

COMRAT, 

OIAMAX, 

EEQMT(9), 

EPME, 

022575 

. 461 

1 

EQHIWT, 

. EQMIXL, 

EQMIYL, 

EQMIZL, 

EQM2HT, 

022575 

462 

2 

EQH2XL, 

■ EQM2YL, 

EQM2ZL, 

FE, 

lAGNCY, 

022575 

463 

10 

3 

lOEBU&t 

ISATORf 

ME12SH, 

OPTEMP, 

ORBING, 

PERIGE, 

022575 

464 

4 

MICRO, 

RELHE, 

SPECC6), 

SPECl, 

t; 

XCGSAl, 

0 22575 

465 

5 

XMER, 

XMEU 

022575 

466 

c 

022575 

467 

COMMON 

/BTHN/ 

ACSSN, 

ACSHP, 

ALT, 

SOAREA, 

BATCAP, 

022575 

468 

15 

1 

BITRAT(2), 

CLIFE, 

CONVNT, 

SATDAH, 

DT, 

022575 

469 

2 

DX, 

OY, 

DZ, 

EQBLG, 

EQBSIO, 

022575 

470 

3 

FC, 

FF, 

HARNHT, 

HPT, 

HTPIPE, 

022575 

471 

4 

HTPT, 

HTRPRB, 

HTRPWR, 

I8TLOC, 

022575 

472 

5 

LHBOO, 

NC, 

OMEGS, 

PASSTR, 

PJ, 

Q 22575 

473 

20 

6 

PL, 

n.HiN, 

POCNHT, 

RADA, 

RAOAB, 

0 22575 

474 

7 

RAT, 

RJ, 

SABOLG, 

SATLG, 

SATTHT, 

022575 

475 

8 

SATHT, 

SATXCG, 

SATYCG, 

SATZCG, 

SAIXL, 

022575 

476 

9 

SAIYL, 

SAiZL, 

SIDE, 

SYSLB, 

THCMHT, 

022575 

477 

A 

THRUST{2), 

Tl, 

TNKWT, 

TPRIM, 

VB, 

022575 

478 

'P  25 

B 

VCHP, 

SATVOL, 

SOARWT, 

HB, 

WBT, 

022575 

479 

C 

STINHT, 

SATINX, 

XNZERO, 

SATINY, 

SATINZ 

022575 

480 

00 

c 

022575 

481 

COMHON/PRTCOH/ 

ACCRCY. 

AM, 

AN, 

BF, 

BS, 

022576 

482 

1 

CDPI(7,2). 

CISTAR, 

CTOT, 

DOTE, 

BE, 

022575 

483 

30 

2 

DRIWT, 

EQBSTR, 

FEEINV-, 

FEEOPS, 

FEER, 

022575 

484 

3 

6SE, 

IREL, 

ITRUNC, 

MMDOLD, 

NAME(3,60)  , 

022575 

4 65 

4 

OPS, 

PAYINV, 

PAYQUL, 

PAYR, 

PE, 

022576 

486 

5 

FMP, 

PMR, 

P0HER(6>  , 

PU, 

PHR(60)  , 

022575 

487 

6 

QCP, 

QCR, 

R0L0(60)  , 

SABHHT, 

SATADP, 

022575 

488 

35 

7 

SATINV, 

SATR, 

SEIP, 

SEIR, 

SKTAU(6) , 

022575 

489 

8 

SSREL(6>, 

SUBE(7), 

SUBT(7), 

SUBUE(7), 

SUBUP(7)  , 

022575 

4«0 

9 

TA, 

TAUC6,6), 

TB, 

TC, 

TE, 

022575 

491 

. A 

TF, 

TOOLR, 

TOOLU, 

TOTOPS, 

TRUNC, 

022575 

4«2 

B 

TSJ 

TTT, 

V0LUME<6), 

VQL(60) , 

MEIGHT(6) , 

■ 022575 

443 

40 

C 

XLTOT, 

XMEH, 

XMEINV, 

XMEL, 

XMEVL, 

022575 

494 

0 

XHEM. 

XMEWT, 

XVEST 

022575 

495 

ISHAPE 

- NC0NF(6) 

NASA 

3336 

ISPIN  = 

: 0 

NASA 

3337 

RLO  = 

0.600 

122674 

1 

45 

XHEL=£QM1XL+EQM2XL 

, * 

111274 

1 

XMEW  = 

AHAX1(EQH1YL*EQH2YL> 

111274 

2 

XMEH  = 

AMAXKEQHlZt.EQMZZU 

111274 

3 

EQHIST 

s 0.8 

111274 

4 

EQM2ST 

= 0.0 

111274 

5 

50 

IF(NCONF(l).EQ 

.liOR.NCONF(l)  .EQ.2) 

ISPIN  = 1 

NASA 

3339 

lEQTYP 

= 1 

' ’ 

NASA 

3340 

IFINC0NF(5).EQ 

.l.OR.NCONFfS) .EG.3. 

0R.NC0NF(5) 

i.EQ.5>  IEQTYP=2 

NASA 

3341 

c 

DETERMINE  EQUIPMENT  BAY 

EQUIPMENT 

HEIGHT  AND 

VOLUME 

NASA 

3342 

EQWT  = 

1.025  ♦STINHT 

111874 

49 

55 

60 

65 

70 

75 

60 

sO 

I- 

^£) 

-.D 

65 

90 

95 

100 

105 

110 


EQV0L=  1.025*SATWOL 
THCHHT  = 0.025  ♦ STINWT 

THE  THERMAL  CONTROL  SUBSYSTEM  IS  ACCOUNTED  FOR  BY  THE  1, 
NOTE  THAT  VOLUMES  ARE  IN  FT**3 

ACCOUNT  FOR  PACKING  FACTOR 

6Q8V0L=  1728.*EQV0L*EQPF 

DETERMINE  EQUIPMENT  BAY  LENGTH 

1CHOSE=0 

IF(ISHAPE-2)1,2,3 

1 SATOAM=  (EQ8V0L/« .785*RLDI)*».333 
EQBLG=RLD»SATDAM 
IFCSATOAM.LE.OIAMAX)  GO  TO  4 
SATOAH=  OIAMAX 

EQBLG=  EQBVOL/(.785*SATOAM**Z) 

GO  TO  4 

2 EQ8LG  = EQBV0L*».333 
SATOAM  = 1.4142  * EQBLG 
IFCSATDAM.LE.DIAMAX)  GC  TO  4 
SATOAM=  OIAHAX 

£Q8LG=  2.»EQ8V0L/SATCAM*»2 
GO  TO  4 

3 SATOAM=  (EQBVOL/.524)***  333  . 

EQBLG=  SATDAH 

IF(SATOAM.LE.OIAMAX)  GO  TO  4 
ICHOSE=-l 

THAT  IS,  THIS  IS  NOT  AN  ACCEPTABLE  HACRO  CONFIGURATION 
RETURN 

4 CONTINUE 

DETERMINE  SOLAR  ARRAY  DIMENSIONS 
IERR=0 

SAAREA  = 144.*S0AREA 
GO  TO  (11,14,17) .ISHAPE 

11  GO  TO  (12,20),IEQTYP 

12  IF  (ISPIN.EQ.O)  GO  TO  13 

SURF  = 3.14159  • SATOAM  * EQ8LG 
IF  (SURF  «GE,  SAAREA)  GO  TO  20 
SATOAM  = SQRT(SAAREA/1. 88496) 

EQBLG  = 0.6  » SATOAM 

EQBVOL  = 0.785  ♦ SATDAM**2  ♦ EQBLG 
IF  (SATOAM  .LE.  DIAMAX)  GO  TO  20 
SATOAM  = OIAHAX 

EQBLG  = SAASEA/(3.14159*SAT0AM) 

EQBVOL  = 0.785  * SATDAM**2  * EQBLG 
GO  TO  20 

13  SURF  = 1.5708  ♦ SATOAM  * EQBLG 
IF  (SURF  .G£.  SAAREA)  GO  TO  20 
SATOAM  = SQRKSAAREA/. 94248) 

EQBLG  = 0.6  * SATOAM 

EQBVOL  = 0.785  * SATOAH*»2  * EQBLG 
IF  (SATOAM  .LE.  DIAMAX)  GC  TO  20 
SATOAM  = DIAMAX 

EQBLG  = 2.*SAAREA/(3.14159*SATDAM) 


025  FACTOR 


NASA 

111874 

NASA 

NASA 

NASA 

NASA  - 

NASA 

NASA 

NASA 


3344 

50 

3346 

3347 

3348 

3349 

3350 

3351 

3352 


NASA 

3353 

NASA 

3354 

NASA 

3355 

NASA 

3356 

NASA 

3357 

NASA 

3356 

NASA 

3359 

NASA 

3360 

NASA 

3361 

NASA 

3362 

122674 

2 

122674 

3 

NASA  - 

3365 

NASA 

3366 

NASA 

3367 

NASA- 

3368 

NASA 

3369 

NASA 

3370 

NASA 

3371 

NASA  ' 

3372 

NASA 

3373 

NASA 

3374 

NASA 

3375 

NASA 

3380 

NASA 

3361 

NASA 

3382 

NASA 

3383 

122  674 

4 

011375 

11 

011375 

12 

011375 

13 

122674 

7 

122  674 

8 

122674 

9 

122  674 

10 

122  674 

11 

122674 

12 

122674 

13 

122674 

14 

122674 

15 

122  674 

16 

122674 

17 

122674 

10 

122674 

19 

122674 

20 

122674 

21 

122674 

22 

122  674 

23 

001 -I 


115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

1€5 


EQaVOL  = 0.785  * SATDAH**2  * EQBLG 
GO  TO  20 

14  GO  TO  (15,20) .lEQTYP 

15  IF  (ISPIN.EQ.i)  GO  TO  20 

SURF  = SATDAM  * EQBLG  / 1.4142 
IF  (SURF  .GE.  SAAREA)  GO  TO  20 
SATDAM  = SQRT  (SAAREA)*  1.4142 
EQBLG  = SATDAM 

EQ8V0L  = 0.500  * SATDAH**2  * EQBLG 
IF  (SATDAM  .LE.  OIAMAX)  GOTO  20 
. SATDAM  = DIAMAX 
EQBLG  = 1.4142  * SAAREA  / SATDAM 
EQBVOL  = 0.500-  ♦ SAT0AM**2  * EQBLG 
GO  TO  20 

17  GO  TO  (18,20) .lEQTYP 

18  IF  (ISPIN.EQ.O)  GO  TO  19 
SURF  = 3.14159  * SATOAM**2 

IF  (SURF  .GE.  SAAREA)  GO  TO  20 
SATDAM  = SQRT(SAAREA/3. 14159) 

EQB\)OL  = 0.524  * SAT0AH**3 
IF  (SATDAM  ,LE.  DIAMAX)  GO  TO  20 
ICHOSE  = -1 

THAT  IS  WE  CANNOT  LENGTHEN  A SPHERE 
RETURN 

19  SURF  = 1.5708  * SATOAM**2 

IF  (SURF  .GE.  SAAREA)  GO  TO  20 
SATDAM  = SQRT(2.*SAAR£A/3.1415S) 
EQBtfOL  = 0.524  * SATOAM**3 
IF  (SATDAM  .LE.  OIAMAX)  GO  TO  20 
ICHOSE  = -1 

THAT  IS  WE  CANNOT  LENGTHEN  A SPHERE 
RETURN 

20  CONTINUE 

DETERMINE  SATELLITE  LENGTH 

SATLG  = EQBLG  * EQMIXL  + EQH2XL 
IF(IEQTYP,EQ.2)  GO  TO  54 
IF(ISHAPE^2)  51,52,53 

51  SA3XL=  SAAREA/SATOAH 
IF(SA3XL.LE.£QeLG)  GO  TO  55 
IERR=I£RR41 

GO  TO  55 

52  SA3XL=  1.414*SAAREA/SAT0AH 
IF(SA3XL.LE. EQBLG)  GO  TO  55 
IERR=IERR+1 

GO  TO  55 

53  SA3XL=  SQRT(1.273*SAAREA) 

IF (SA3XL.LE. SATDAM)  GO  TO  55 

I£RR=IERR-H 

GO  TO  55 

54  SA1YL=  ..005208*SAAREA 
SA1XL=  96. 

SA1ZL=  1. 


122-674 

24 

122  674 

25 

122  674 

26 

011375 

14 

011375 

15 

011375 

16 

122674 

31 

122  674 

32 

122674 

33 

122  674 

34 

122674 

35 

122  67.f 

36 

122  674 

37 

122674 

38 

122  674 

39 

122674 

40 

011375 

17 

011375 

18 

011375 

19 

122674 

43 

122674 

44 

122674 

45 

122  674 

46 

122674 

47 

122674 

48 

122674 

49 

122674 

50 

122674 

51 

122674 

52 

122  674 

53 

122674 

54 

122674 

55 

122674 

122674 

57 

122674 

58 

122  674 

. 59 

122674 

60 

122674 

61 

122674 

62 

122674 

63 

NASA 

3384 

NASA 

3365 

NASA 

3386 

NASA 

3387 

NASA 

3388 

NASA 

3389 

NASA 

3390 

NASA 

3391 

NASA 

3392 

NASA 

3393 

NASA 

3394 

NASA 

3395 

NASA 

3396 

NASA 

3397 

NASA 

3398 

NASA 

3399 

NASA 

3400 

170 

175 

160 

185 

190 

vO  195 
] 

t— I 

o 

H-* 

200 

205 

210 

215 

220 

225 


C 

C 

C 


C 

C 

C 


$A2YL=  SAIYL 
SA2XL=  SAIXL 
SA2ZL=  SAIZL 
55  CONTINUE 

DETERMINE  EQUIPMENT  BAT  STRUCTURAL  WEIGHT 


EQBSTR=  . 2ia*EQWT**.98&» (EQflLG/SATDAM) **  *263 
IFdEQTYP.EO.E)  EQBSTR=  .59*ECBSTR 
EQBSTR=EQBSTR+fl.lO*EQWT 


C 

C 

C 


C 

c 

c 


c 

c 

c 

c 

c 

c 

c 


bHERMINE.  STRUCTURAL  THERMAL  PROTECTION  HEIGHT 
STTPS  = 0.025  ♦ EQBSTR 
EQBSTR  = EQBSTR  + STTPS 
EQ8WT=EQWT+EQBSTR 

DETERMINE  MISSION  EQUIPMENT  BAY  TOTAL  VOLUME 

IF<HB12SH.EQ.2>  GO  TO  150 
EQM1VL=  ,785»EQM1YL**2*EQM1XL 
EQM2VU=  .785*EQM2YL**2*EQM2XL 
GO  TO  151 

150  CONTINUE 

EQM1VL=  £QM1XL*EQM1YL*EQK1ZL 
EQM2VL=  EQM2XL*EQM2YL*EQM2ZL 

151  CONTINUE 

EQHVOL=  EQMIVL  ♦ EQM2VL 

DETERMINE  SAIHT, SA2MT , SA3WT 

SA3HT  = SOARHT  I 

IFCIEQTYP.EQ.l)  GO  TO  152 
SAINT  = .5*SOARHT 
SA2HT  = SAIHT 

152  CONTINUE 

DETERMINE  BOOM  AND  MECHANISM  HEIGHT 

SABOLG=  0. 

SABOOM=  0. 

SAORIV=  0. 

IF(ISPIN.EQ.l)  GO  TO  23 
SABOLG=  24. 

SABOOM=  15.2  , 

IF(ISaOFG.EQ.O)  GO  TO  2? 

SAORIV=  ,166«(SAiHT  ♦ SA2HT) 

23  CONTINUE 

SABMHT=  SABOOM  + SAORIV 

CALCULATE  HARNESS  AND  STRUCTURAL  TPS  HEIGHT 

FIRST  NEED  MISSICN  EQUIPMENT  HEIGHT  AND  EXTERNAL  EQUIPMENT  HEIGHT 
AND  VOLUME 

EQHHT=  EQM1WT+  EQM2HT 
EEQTWTs  0, 

EEQVQL=  0. 


NASA 

3401 

NASA 

3402 

NASA 

3403 

NASA 

3404 

NASA 

3405 

NASA 

3406 

NASA 

3407 

NASA 

3408 

NASA 

3409 

120274 

2 

120  474 

13 

120474 

14 

120474 

15 

120274 

3 

NASA 

3459 

NASA 

346  0 

NASA 

3461 

NASA 

3462 

NASA 

3463 

NASA 

3464 

NASA 

3465 

NASA 

3466 

NASA 

3467 

NASA 

3468 

NASA 

3469 

NASA 

3470 

NASA 

3471 

NASA 

3472 

NASA 

3473 

NASA 

3474 

NASA 

3475 

NASA 

3476 

NASA 

3477 

NASA 

3478 

NASA 

3479 

NASA 

3480 

NASA 

3461 

NASA 

3482 

NASA 

3483 

NASA 

3484 

NASA 

3465 

NASA 

3486 

NASA 

3487 

NASA 

3468 

NASA 

3489 

NASA 

3490 

NASA 

3491 

NASA 

3492 

NASA 

3493 

NASA 

3494 

NASA 

3495 

NASA 

3496 

NASA 

3497 

NASA 

3498 

NASA 

3499 

NASA 

3500 

NASA 

3501 

IFtNUMEEQ.EQ.O)  GO  TO  232 
DO  231  I=1,NUMEEQ 
E£QTWT=  EEQTHT  + EEQWT(I) 

EEQtfOL=  EEQtfOL  + EEQVLd) 

231  CONTINUE 

232  CONTINUE  , , 

XMEWT  = EQMWT  + EEQTHT 

XMEHL  ={£QHtfOL  + EEQVOU/1728#  ■ 

HAftNWT  = 0.013  ♦ (STINHT-W8T-ACSWP+.5*EEQTWT+.5*EQMHT)**1.31 

* * (£QBV0L/172a. )**0.ie 

DETERMINE  SATELLITE  DRY  HEIGHT  LESS  AUXILIARY  PROPULSION  DRY 
HEIGHT 

FIRST  DETERMINE  SOLAR  ARFAY  HEIGHT 
SOARHT=  0. 

IF(IEQTYP.EQ.2)  GO  TO  233 
SOARHT=  SA3WT 
GO  TO  234 

233  SOARHT=  SAIHT  SA2HT 

234  CONTINUE 

PASSTR=EQBSTR+EQM1ST+EGM2ST+SA800M+SADRIV  ^ oAouu-r 

SUBHT1=  EQMHT  + EQMIST  + EQM2ST  + SOARMT  + EEQTHT  <■  SA8MHT 

SUeHT2=SUBWTl+EQHT+HARNHT4£QBSTR-ACSHP 

SU8HT  = SU8HT2 

npyUTs  SUBMT 

SYSLB~=  EQMHT  ♦ EQMIST  + EQM2ST  + EEQTHT 
1 + EQBSTR+  SOARHT  + SA0HHT  + HARNHT 

DETERMINE  SATELLITE  GROSS  HEIGHT 

SATHT=  ORYHT  + ACSHP 

I 

• DETERMINE  ADAPTER  HEIGHT 
SATADP-=:  .012»SATHT 

DETERMINE  SATELLITE  LAUNCH  HEIGHT 

SATTHT=  SATHT  + SATADP 

CENTER  OF  GRAVITY  CALCULATIONS 

£BXCG=  500.  ♦ .5*£QBL6 
EBYC6=  0. 

E8ZCG=  0. 

MISSION  EQUIPMENT  AMO  HISSIOM  EQUIPMENT.  BAY  STRUCTURE  C.G. 

EM1XCG=  500.  + EQBLG  + .5*EQM1XL 
EM2XCG=  500.  - .5*EQM2XL 

EQUIPMENT  BAY  STRUCTURE  C.G, 


NASA 

3502 

NASA 

3503 

NASA 

3504 

NASA 

3505 

NASA 

3506 

NASA 

3507 

111874 

52 

111874 

53 

NASA 

3508 

111874 

54 

111874 

55 

NASA 

3515 

NASA 

3516 

NASA 

3517 

NASA 

3510 

NASA 

351,9 

NASA 

3520 

NASA 

3521 

NASA 

3522 

NASA 

3523 

NASA 

3524 

NASA 

3525 

NASA 

3526 

NASA 

3527 

120474 

16 

NASA. 

3529 

120474 

17 

111274 

6 

NASA 

3533 

011475 

33 

011475 

34 

NASA 

3534 

NASA 

3635 

NASA 

3536 

NASA 

3537 

NASA 

3538 

NASA 

3539 

NASA 

3540 

NASA 

3541 

NASA 

3542 

NASA 

3543 

NASA 

3544 

NASA 

3545 

NASA 

3546 

NASA 

3547 

NASA 

3548 

NASA 

3549 

NASA 

3550 

NASA 

3551 

NASA 

3552 

NASA 

3553 

NASA 

3554 

NASA 

3555 

NASA 

3556 

NASA 

3557 

NASA 

3558 

NASA 

■ 3559 

IF(IEQTYP,EQ»2)  go  to  250 
SAX=  SA3WT*SA3XCG 
SAY=  SA3HT*SA3YCG 
SAZ=  SA3HT»SA32CG 
GO  TO  251 

250  CONTINUE 

SAX=  SAIHT^SAIXCG  + SA2WT*SA2XC6  + SABMWT^SABXCG 
£AY=  SA1HT*SA1YCG  + SA2MT*SA2YCG  + S ABMHT*SA0YCG 
SAZ=  SAIWT^SAIZCG  + SA2MT*SA2ZC6  + S ABMHT*S ABZCG 

251  CONTINUE 

NEXT  DETERMINE  CONTRIBUTION  OF  EXTERNAL  EQUIPMENT 

EEX=fl, 

EEY=0. 

EEZ=0. 

IFCNUMEEG.EQ.O)  GO  TO  253 

00  252  I=1,NUMEEQ 

EEX=  EEX  ♦ EEQHTII)^EEXCG(I) 

EEY=  EEY  + EEQHT{I)*EEYCG(I) 

EEZ=  EEZ  + EEQHT(I)^EEZCG(I) 

252  CONTINUE 

253  CONTINUE 

SATXCG=  (EQBSTR*STRXCG  ♦ EQWT^EBXCG  *■  (EQMIST  4 EQH1HT)»EF1XCG  ♦ 

1 CEQH2ST  + EQM2WT>*EM2XCG  + SAX  *■  EEX  + 

2 (HARNWT+STTPS)*EBXCG)/SATWT 

SATYCG=  (EQ8STR*STRYC6  *■  EGWT^EBYCG  ♦ <EQM1ST  + EQMIWT)  *EM1YCG  + 

1 (EQM2ST  + £QM2WT»*EM2YCG  + SAY  «■  • EEY  ♦ • 

2 ■ (HARNWT4STTPS)*E8YCG)/SATHT 

SATZCG=  {EQBSTR*STRZCG  ♦ EQHT*  £8ZCG  + (EQMIST  ■*  EQMIHT) ♦EM1ZC6  + 

1 (EQH2ST  + EQH2HT)*EM2ZCG  + SAZ  ♦ EEZ  *■ 

2 {HARNWT+STTPS»-»EBZC6>/SATMT 

CALCULATE  MOMENTS  OF  INERTIA 

FIRST  DETERMINE  EQUIPMENT  BAY  STRUCTURE  AND  EQUIPMENT  BAY 
EQUIPMENT  INCREMENTAL  INERTIA 

SATRAO=  .5*SATDAM 
IFCISHAPE  - 2)  66,67,68 

66  STRINX=  £QBSTR4SATRAD»*2 

STRINY=  ,.5*EQBSTR*(SATRAD**2  + . 167*EQBLG**2) 

STRINZ=  STRINY 

EQINX=  ;5*EQWT*SATRAD**2 

£QINY=  .0833*EQHT4(3.*SATRAO**2  + EQBLG*42) 

EQINZ=  EQINY. 

SIDE  = SATDAM 
GO  .TO  69 

67  EQBSIO=  .708*SATDAM 
STRINX=  .333*EQBSTR*EQBSID**2 

STRINY=  .0833*EQBSTR*(2,4EQBSIO**2  ♦ EQ8LG**2) 

STRINZ=  STRINY 

EQINX=  .167*EQHT*EQBSID**2 
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3617 
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3618 

NASA 
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NASA  . 
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2622 
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NASA 

3625 

NASA 

3626 

NASA 

3627 

NASA 

3628 

NASA 

3629 

NASA 

3630 

NASA 

3631 

NASA 

3632 

NASA 

3633 

NASA 

3634 

NASA 

3635 

NASA 

3636 

NASA 

3637 

NASA 

3638 

NASA 

3639 

NASA 

3640 

NASA 
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NASA 

3642 

NASA 

3643 

11127*4 

7 

NASA 

3645 

NASA 

3646 

NASA 

3647 

111274 

8 

NASA 

3649 

NASA 

3650 

NASA 

3651 

111274 

9 

NASA 

3653 

NASA 

3654 

NASA 

3655 

NASA 

3656 

NASA 

3657 

NASA 

3658 

NASA 

3659 

NASA 

3660 

NASA 

3661 

NASA 

3662 

NASA 

3663 

NASA 

3664 

NASA 

3.665 

NASA 

3666 

111274 

NASA 

3667 

NASA 

3668 

NASA 

3669 

NASA 

3670 
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3671 
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410 

415 

420 

.0 
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C 

C 

C 


C 

C 

C 


c 

c 

c 


EQINY=  ,0833*£QHT*(EQ8SIO**2  ♦ EQBLG*^2) 

EQINZ=  EQINY 
SIDE  = EQBSID 
GO  TO  69 

68  STRINX=  .167*EQBSTR*SATDAH»*2 
STRINY=  STRINX 

STRINZ=  STRINX 

EQINX=  .1*EQHT’SATDAM**2 

EQINY=  EQINX 

EQINZ=  EQINX 

SIDE  = SAT  0AM 

69  CONTINUE 

IF  <NUMEEQ  .EQ.  0)  GO  TO  71 

EXTERNAL  EQUIPMENT  INCREMENTAL  INERTIA  {BOX  SHAPE) 
DO  70  I=1,NUMEEQ 


70 

71 


37 


38 


39 


EEINX(I)  = 
EEINY(I)  = 
EE  INZ(I)  = 
CONTINUE 
CONTINUE 


167*EE0WTCI)*EESI0{I)**2 
EEINX(l) 

EEINXCI) 


SOLAR  ARRAY  INERTIAL  CALCULATIONS 

3FIIEQTYP.EQ.2)  GO  TO  37 
SA3INX=  SA3HT*SATRA0**2 

SA3INVS  .5*SA3WT*<SATRA0»*2  ♦ . 1 67*SA3XL**2) 
SA3INZ=  SA3INY 
GO  TO  38 

SA1INX=  .0833*SA1HT*<SA1YL**2  * SA1ZL**2) 
.0833*SA1WT*(SA1XL**2  + SA1ZL*»2) 
,0833*SAlHT*{SAlXL*-»2  + SA1YL**2) 
.0833*SA2WT*(SA2YL**2  + SA22L**2> 
.0833*SA2MT*(SA2XL**2  + SA2ZL**2) 
,0833*SA2WT*{SA2XL**2  + SA2YL**2> 


SA1INY= 

SA1INZ= 

SA2INX= 

SA2INY= 

SA2INZ=  , 

CONTINUE 


MISSION  EQUIPMENT  BAY  iNCfEMENTAL  INERTIA 


IF(H312SH.£Q.2)  GO  TO  39 

EH1INX=  .5*(£QM1ST  ♦ EOMIHT)  * SATRAD*»2 

.0833*(EQM1ST  4 EOMIHT) » (3*SATRA0**2  4 £QM1XL**2) 
EMIINY 

•5*(EQH2ST  4 E0M2HT)*SATRAD**2 

.0833*  (EQM2ST  4 EQM2HT) * (3*S AT.RA0**2  4 EQM2XL**2) 
EH2INY 


40 


EM1INY= 

EM1INZ= 

EM2INX= 

EM2IMY= 

EM2INZ= 

GO  TO  40 
TEM1=  .0833*<EQH1ST  4 EQMIHT) 

TEM2=  .0833* (EQM2ST  4 EQM2HTJ 
EM1INX=  TEH1*(EQM1YL**2  4 EQM1ZL**2) 
EM1INY=  TEM1*(EQM1ZL**2  4 EQM1XL**2) 
EM1INZ=  TEM14(EQM1YL*»2  4 EQM1XL**2.) 
EM2INX=  T£M2*{ EQM2YL**2  4 EQM2ZL442) 
EH2INY=  TEM2*{EQM2ZL*42  4 EQM2XL**2) 
EM2INZ=  TEM2*(EQM2YL»*2  4 EQM2XL**2) 
CONTINUE 
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tt55 
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465 
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.o  480 

I' 

I—' 

o 

O' 

485 
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495 
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510 


C 

C 

C 

C 

C 


C 

C 

C 


EQM1T0=  EQMIWT  + EQHIST 
EQM2T0=  EQM2MT  ♦ EQM2ST 

SATELLITE  TOTAL  INERTIA  CALCULATIONS 

FIRST  DETERMINE  CONTRIBUTION  OF  SOLAR  ARRAYS 


(SATZCG-SA3ZCG>*»2). 

(SATKCG-SA3XCGJ*»2) 

(SATXCG-SA3XCG)*»2) 


C 

C 


IF(I£QTYP.EQ.2>  GO  TO  41 

SAIX=  SA3INX  + SA3HT*(!(SATYCG-SA3YCG)*'^2  ♦ 

SAIY=  SA3INY  + SA3WT* ( (SATZCG-SA3ZCG) **2  + 

SAIZ=  SA3INZ  + SA3HT*((SATYCG-SA3YCG)**2  + 

GO  TO  42 

41  CONTINUE 

SAIX=  SAIINX  + SAIHT^ ((SATYGG-SA1YCG)**2  + (SATZCG-SAl ZCG ) »^2)  + 

1 SA2INX  + SA2HT*USATYC6-SA2YCG)*»2  + (SATZCGrSA2ZCG)**2) 

2 + SA0MWT*  ((SATYCG-SA0YCGJ**2  * (S ATZCG-SA8ZCG I »*2 ) 

SAIY=  SAIINY  + SA1HT»((SATZCG-SA1ZCG)*»2  + (SATXCG-SAl XCG) »*2)  + 

1 SA2INY  + SA2HT*( (SATZCG-SA2ZCG)*»2  + (SATXCG-SA2XCG>*»2) 

2 + SABMWT*((SATZC6-SABZCG)»*2  + (SATXCG-SA8XCG) **2) 

SAIZ=  SAIINZ  + SAIHT* USATYCG-SA1YC6»**2  + (SATXCG-SAIXCG) *»2»  ♦ 

1 SA2INZ  *■  SA2WT*f  (SATYCG-SA2YCG)**2  + (SATXC6-SA2XCG)  **2) 

2 SABMHT*({SATYCG>SAaYCG)**2  + CSATXCG-SA8XCG ) *♦2) 

42  CONTINUE 

NEXT  DETERMINE  CONTRIBUTION  OF  EXTERNAL  EQUIPMENT 

E£IX=  0. 

EEIY=  0. 

EEIZ=  0. 

IF(NUH£EQ.£Q.O)  GO  TO  44 
DO  43  I=1,NUMEEQ 

EEIX=  E£IX  + EEINX(I)  + EEQMT ( I) ♦ ( (SATYCG-EEVCGCI) )**2  + 

* fSATZCG-EEZCG(in**2) 

EEIY=  EEIY  + EEINYdJ  ♦ EEQHT  (I)  ♦<  (SATZCG- EEZCG  C I)  ) *»2  + 

*•  (SATXCG-EEXCGd)  )**2> 

EEIZ=  EEIZ  + EEINZdJ  + EEQHTd>*<  CSATYCG-E£YCG(  in**2  + 

* (SATXCG-EEXCGd)  »**2) 

43  CONTINUE 

44  CONTINUE 

SATINX=  STRINX  ♦ EQBSTR*  C (SATYCG-STRYCG)-»*2  ♦ IS  ATZCG-STRZCG)  *'»2) 

1 *■  EMIINX  *■  EQH1T0»<(SATYCG-EM1YCG)**2  + ( SATZCG-EMlZCG)  »*2) 

2 + EM2INX  + EQH2TO^((SATVCG-EM2YCG)«*2  + ■ (SATZCG-EH2ZCGI •♦2) 

3 + EQINX  + EQHT*(SATYCG»<'2  + SATZCG*f2>  + SAIX  ♦ EEIX 

SATINY=  STRINY  + EQBSTR*  ( (SA TZCG-STRZCG ) **2  + (SATXCG-STRXCG)**2) 

1 + EMIINY  + £QM1T0*I(SATZCC-EM1ZCG)**2  + { SATXCG-EM1XC6)»*2) 

2 + EM2INY  + EQM2T0*((SATZCG-EM2ZCG>**2  + C SATXC6-EM2XCG) ♦*2) 

3 .t  EQINY  + EQHT^f(SATZCG**2  + C SATXCG-STRXCG) ♦♦21  + SAIY  ♦ EEIY 

SATINZ=  STRINZ  ♦ . EQBSTR*  ( (SAT YGG-STRYCG.)  ♦♦Z  ♦ (SATXCG-STRXCG)^^2) 

1 + EHIINZ  + EQM1T0*((SATYCG-EM1YC6)**2  + ( SATXCG-EMIXCGI **2) 

2 ♦ EM2INZ  + EQM2T0»( (SATYCG-EM2YCG)*»2  ♦ ( SATXCG-EM2XCG) ♦♦E) 

3 ♦ EQINZ  ♦ EQWT*(SATYCG*»2  + (SATXCG-STRXCG) *♦ 2)  + SAIZ  + EEIZ 

COWUTE  DISTANCE  FROM  C.G.  TO  MAIN  ENGINE(OT),  GAS  JET  LEVER  ARMS. 
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c 

c 

c 


CN  ROLL.  PITCH,  AND  YAH  AXES,  RESPECTIVELY.  (DX.DY.Di 
CONVERSION  TO,  ONITS  OF  FT  IS  CONE  IN  SUBROUTINE  SA^OC 


) . THE 


515 


520 


5 25 


530 


535 


lF(ISHAP£-2)  45,48,46 

45  CT=  SATXCG  - 500. 

OX==  .S^EQBLG 

DY=  DX 

OZ=  ,5*SATDAM 
GO  TO  47 

46  DT=  SATXCG  * 500. 

OX=  .5*SATDAH 
OY=  OX 

OZ=OX 
GO  TO  47 
48  0T=.5*EQBL6 
DX=.5*EQBSID 
DY=OT 
CZ=OT 

47  FJ=EH1INX 
RJ=SATINX-PJ 

.HRITE  <6,1000)  EGBLG , ACSHP, THCHHT, EQBSTR.SOARHT, SABMWT , 
^HARNWT  f SATWT 
1000  F0RHAT(1X,8E15.4) 

RETURN 

END 


REGISTER  ALLOCATION 

2 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  227 
2 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  356 
1 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  413 
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SUBROUTINE  1 
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76/76 
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FTN 

‘♦.2+383 
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21. 36. 
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NASA 

3918 

^ hi 

110 

c * 

PS 

INT 

EPR 

EPR, EPS 

WATTECL  SOL  OUT* 

NASA 

3919 

c * 

RFC 

INT 

EPS 

EPS 

TEMP  OEG  FC* 

NASA 

3920 

115 

120 

125 

130 

135 

sO 

i:  140 

o 

145 

150 

155 

160 

165 


c • 

s 

INT 

EP 

EP 

c * 

SOL 

INT 

EPS 

EPS 

c * 

T£ 

INT 

EPS 

EPR 

c * 

TEOTS 

INT 

EPS 

EPS 

c * 

VB 

1N7 

EPS 

EPS 

c * 

VBM 

INT 

EPR 

EPS 

c * 

V8T 

INT  ' 

EPS 

EPS 

c * 

VC 

INT 

EPS 

EPS 

c * 

VCELL 

INT 

DB 

MAIN 

c * 

VOB 

INT 

EPR 

EPR 

c * 

VOL 

0 

MAIN 

c * 

HATE 

INT,0 

EPS 

VESIZE 

c ♦ 

WB 

INT 

EPS 

EPS 

c * 

WBT 

INT 

• EPS 

EPS 

c * 

HCELL 

INT 

D8 

EPS 

c * 

c * 

HT 

0 

MAIN 

C 

C 


1 

2 

3 

4 

5 


COMMON  /USERI/ 


Z0E8U6, 

MICRO, 


APOGEE, 
EQMINT, 
EQM2XL, 
ISATOR, 
RELME, 
' XMER, 


COMMON  /BTHN/  ACSSN, 

1 BITRAT(2>i 

2 OX, 

3 FC, 

4 HTPT, 

I n r\  ^ 

6 
7 


6 

9 

A 

3 

C 


r I * 

LHBOO, 

PL, 

RAT, 

SATHT, 

C A 4 V I 


•9M  I n I f 

SAIYL, 
THRUST (2), 
VCHP, 

wt; 


UUHKA I , 

EQMIXL, 

EQM2YL, 

MB12SH, 

SPEC(6), 

XMEU 

ACSWP, 

CLIFE, 

OY, 

FF, 

HTRPR8, 

NC,. 

PLMIK, 

RJ, 

SATXCG, 

SAIZL, 

TI, 

VOL, 

XJ, 


OIAMAX, 

EQMIYL, 

EOM22L, 

OPTEMP, 

SPECl, 


USED  IN  CALC  OF  T£  ♦ 
1353  H/M2AV  SOL  INT  ♦ 
ECPS  TIME  * 
OARK/LITE  * 
FT**3UNIT  BATVOL+ 
VDCMIK  BAT  VLT» 
FT**3TOT  BAT  VOL* 
1.1  VOCMIN  CELL  U ♦ 
. M3  VOL  CELL  ♦ 
VDCAVE  ALL  VOL* 
FT**3  EP  VOL  * 
K6  ARRAY  WT  * 
KGUNIT  BAT  HT* 
KGTOT  SAT  HT  * 
LB  CELL  HGT  * 
LBS  EP  HT  * 

V 

EEQWT(9),  EPME, 

EQMIZL,  EQH2WT, 


FE, 
ORBING, 

T , 


common  /OBCOM/CATABf55,100),IOEC30) 

COMMON/PRTCOM/  ACCRCY, 

1 CDPI(7,2), 

2 ORIMT, 

3 GSE, 

4 

5 

6 

7 

8 
9 
A 

a 
c 
0 


n t 

GSE 
OPS, 
PMP, 
QCP, 
SATINV, 
SSREL(6), 

taJ 

TF,, 
Ts; 


AM, 
CISTAF, 
EQB STR, 
IREL, 
PAY3NV, 
PMR, 
OCR, 

satr; 

SUBE(7), 

TAU(6,6), 

Tftrtl  O- 


ALT, 

CONVHT, 

DZ, 

HARNHT, 

HTRPWR, 

OHEGS, 

POCNWT, 

SABOLG, 

SATYCG, 

SIDE, 

TNKMT, 

HATE, 

N, 


AN, 
CTOT, 
FEEINV, 
ITRUNC, 
PAYOUL, 
P0WER(6) • 
ROLO(60) i 
SEIP, 
SUBT(7) , 

tb; 


AREA, 

.0, 

EQBLG, 

HPT, 

PASSTR, 

RAOA, 

SATLG, 

SATZC6, 

SYSLB, 

TPRIM, 

HB, 

YJf 


IA6NCY, 

PERIGE, 

XC6SA1, 

BATCAP, 

OT, 

EQ8SID, 

hTPIPE, 

I8TL0C, 

PJ, 

RAOAE, 

SATTHT, 

SAIXL, 

THCMHT, 

VB, 

WBT, 

ZJ 


BF, 
DOTE, 
FEEOPS, 
MHOOLO, 
PAYR, 
PU, 
SABNHT, 
SEIR, 
SUBU£(7.», 
TC, 
TOTOPS, 
VQL(60) , 
XMEL, 


’ t □,  O,  ID, 

TOOLR,  TOOLU, 

^TS,  TTT,V0LUME(6) , VQL( 

XLTOT,  XMEH,  XMEINV,  X 

I , XMEH,  • XMEWT,  XWEST 

DIMENSION  NCONF(IO),  IPIC(5),  ICHOSE  <5)  , NCHOSE ( 5 ) 
REAL  MU,N,ICH,LME0D,LHe0G,LM8DP,Kl,K2 


BS, 

OE, 

FEEP, 

NAME(3,60)^ 
, . PE', 

PHR(60>, 
SATAOP, 
SKTAU(6), 
SUBUP<7I  , 
T£, 
TRUNCi 
H£IGHT(61 , 
XMEVL, 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA- 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

0,22575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

NASA 

NASA 


2921 

3922 

2924 

2925 

3926 

3927 

2928 

2929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 

3938 

3939 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 
. 515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 
52  8 

529 

530 

531 

532 

3953 

3954 


DATA  D£LF/.03/.DELI/o02/,DELM/.01/,ETAI/.105/,ETAR/1.0/,Kl/l,027,K 

NASA 

3955 

170 

1 2/ 1. 4/, LMBDP/.  9/* SOL/1353. /»\/C/l.l/,PIE/3.  1415 9267 

NASA 

3956 

*,CHMINT/2.0/ 

NASA 

3957 

HTIN  = HT 

NASA 

3958 

PL=PL+EPME 

NASA 

39,59 

c ** 

NASA 

3961 

175 

C 

»*  INITIALIZATION  ** 

NASA 

3962 

IF  (ITER.NE.O)  GO  TO  140 

NASA 

3963 

LM8DO=Q.50 

122  774 

1 

C 

MEAN  RADIUS  OF  EARTH  IN  FEET 

NASA 

3964 

HE  =.  20.92E6 

010975 

15 

180 

MU=1.407645E16 

NASA 

3966 

HP  = 6076.  ♦ PERI6E 

010975 

16 

A=HPfHE 

NASA 

3968 

• 

A32=A*»1.5 

NASA 

3969 

HEOA=H£/A 

NASA 

3970 

185 

S = 1.02  * ASIN(HEDA) 

101574 

29 

N=SQRT(MU>/A32 

NASA 

3972 

TEOT3=S/(PIE-S) 

NASA 

3973 

TE=2.*S/N 

NASA 

39  74 

RFD=.01»OPTEMP+i.0 

NASA 

3975 

190 

DO  10  1=1,5 

NASA 

397.6 

10 

ICHOSE<I)  = 0 

NASA 

3977 

I£RR=0 

NASA 

3978 

c * 

LMBOO  MUST  GO  TO-REL 

NASA 

3979 

NB=2 

NASA 

3980 

nD 

195 

DO  20  1=1,5 

NASA 

3981 

1 

20 

NCHOS£(I)=0 

NASA 

3982 

^LR=2 

NASA 

3983 

KATE=0.0 

NASA 

3984 

AREA=0.0 

NASA 

3985 

200 

C 

NASA 

3986 

C 

NASA 

3987 

C 

NASA 

3988 

C 

**  SET  UP  DELTA-R  AND  OELTA-T  (RADIATION  DEGRADATION  AND 

NASA 

3989 

c 

TEMPERATURE  CO  ERECTION  FACTORS) 

NASA 

3990 

205 

OELR=.05  . 

NASA 

3991 

IF  (ALT.GT.4C0.)  0ELR=i3 

NASA 

3992 

c 

NASA 

3993 

c 

NASA 

3994 

c 

NASA 

3995 

210 

IF  (ALT.GT.5QOO.)  GO  TO  80 

NASA 

3996 

1C0NF=NC0NF(5) 

NASA 

3997 

GO  TO  (30,50,30,50,30,50),  ICONF 

NASA 

3998 

30 

ICONF=NCONF(l> 

NASA 

3999 

GO  TO  (50,50,40,40,40),  ICONF 

NASA 

4000 

215 

C 

NASA 

4001 

40 

DELT=.ll 

NASA 

4002 

GO  TO  140 

NASA 

4003 

C 

NASA 

4004 

C 

NASA 

4005 

220 

50 

ICONF=NCONF(l) 

NASA 

4006 

GOTO  (60,60,70,70,70),  ICONF 

NASA 

4007 

C 

NASA 

4008 

60 

OELT=.01 

NASA 

4009 

GO  TO  140 

NASA 

4010 

225 

C 

NASA 

AOll 

23Q 
2 35 
2<>0 
Zt*5 
250 

I 

)— * 

w 255 
260 
2 65 
270 
275 
260 


70 


CeLT=.O^t 
GO  ro  140 


C 

C **  ALTITUDE  IS  GREATER  THAN  5000  NAUTICAL  MILES  ** 
C 
60 


C 

90 

C 

100 

C 

110 

C 

120 

C 

130 
C 
C 
C 
C 

c 
c 

140 


*** 


♦ ♦♦ 


c 

c 

c 

c 

150 


c 

160 


ICCNF=NC0NF(5) 

GOTO  (90>110y90t 110>90> 110) f ICONF. 

IC.ONF=NCONF(l) 

GO  TO  (140fl40*lp0fl00fl00)>  ICONF 

CELT=.08 
GO  TO  140 

ICONF=NCONF<l) 

GO  TO  (120, 120)130, 130rl30)f  ICONF 

DELT=-.0  5 
GO  TO  140 

CELT=.02 

*9  Jm***ft-****>f  *********************  9 ********* 

NOW  WE  WILL  0E  DOING  THE  EPR  MACRO  SELECTION  (S,SANgg,SLR)^^^^^.^ 
******************************************************************* 

IC0NF=NC0NF(5) 

GO  TO  (150,150,260,280,450,450),  ICONF 

**  SHUNT  REGULATION  DESIGN  *♦ 

IC0NF=NC0NF(5) 
lSRlE=IDe<l) 

ICELLE=IDB(2) 

ICHGRE=IDB(3) 

IPCUE=IDa(12) 

IF  (IPICdl.NE.fl)  GO  TO  160 
ISR1=1 

ICELL=ID8(1)+1 
ICHGR=ID8(2)+1 
IPCU=IDB(11)+1 
NPCU=1 
ETAE=fl,65 
ETAC=1.0 
ETAO=1.0 
ET AR=1.0 
60  TO  210 

IF  (ITER.EQ.O)  GC  TO  170 
ISR1=IPIC(1) 

ICELL=IPIC  (2) 

ICHGR=IPIC(3) 

60  TO  210 


NASA 

4012 

NASA 

A013 

NASA 

A014 

NASA 

A015 

NASA 

A016 

NASA 

4017 

NASA 

4016 

NASA 

4019 

NASA 

4020 

NASA 

4021 

NASA 

4022 

NASA 

4023 

NASA 

4024 

NASA 

4025 

NASA 

4026 

NASA 

4027 

NASA 

4026 

NASA 

4029 

NASA 

4030 

NASA 

4031 

NASA 

4032 

NASA 

4033 

NASA 

4034 

NASA  - 

40.35 

NASA 

4036 

NASA 

4037 

NASA 

4038 

NASA 

4039 

NASA 

4040 

NASA 

4041 

NASA 

40.42 

NASA 

4043 

NASA 

4044 

NASA 

4045 

NASA 

4046 

NASA 

4047 

NASA 

4048 

NASA 

4049 

NASA 

4050 

NASA 

4051 

NASA 

4052 

NASA 

4053 

NASA 

4054 

NASA 

4055 

NASA 

4056 

NASA 

4057 

NASA 

4058 

NASA 

4059 

NASA 

4060 

NASA 

4061 

NASA 

4062 

NASA 

4063 

NASA 

4064 

NASA 

4065 

NASA 

4066 

NASA 

4067 

NASA 

4068 

2 6S 
290 
295 
300 
305 
^ 310 

I— < 

LO 

315 

320 

325 

330 

335 


170 


C 

180 


C 

190 


C 

200 


C 
C 
C 
C 

c 
c 
c 
c 
c 

210 

c 

c 

220 

C 


*♦ 


230 
C 
C 

c 
c 
c 
c 


IF  ( ISRI.GE.ISRIE)  GO  TO  180 
ISR1  = IFIC(11+1 
IC£LL=IPIC(2) 

ICHGR=IPIC  (3) 

GO  TO  210 

IF  lICELL.GEilCELLE)  GO  TO  190  . 

ISR1  = 1 

IC£LL=IPIC(2)  + 1 
ICHGR=IPIC(3) 

GO  TO  210 

IF  (ICHGR.GE.ICHGRE)  go  TO  200 
IS  R1  — 1 

ICELL==IDB<  1)4-1 
ICHGR=IPIC(3)+1 
60  TO  210 

ICHOSE(l)=-l 

ICH0SE(2)=-1 

ICH0SE(3)=-1 

RETURN 

COHPUTE  SELECTION  PARAMETERS  FOR  SHUNT  REGULATION  DESIGN 
THIS  IS  FOR  SHUNT  REG ULATCR , BATTERY  AND  BATTERY  CHARGER 

DETERMINE  NUMBER  OF  SHUNT  REGULATORS  REQUIRED 
NSR=1 

**  DETERMINE  EXCESS  ARRAY  POWER  FOR  REGULATION 

PS  = (PL/ETAR)*U.+TEDTS*(1./(ETAD*ETAC*ETAE))  ) 

P8QL  = PS/  f ( l,-OELR)»U.  -OELF)  *(1  .-BELT)  * (l-OELI ) » (l-OELM)  ) 

PEXCES=P60L-FLMIN 
CAPHAX  = 0.0 
IF  (PEXCES  .6E.  720.) 

IF  (PEXCES  .GE.lAi»a.» 


CAFMAX  = 120. 
CAPHAX  = 2A0. 

IF  (FLMIN.GE. PEXCES)  GO  TC  230 
NSR  = PEXCES  / 0ATA8  (6.ISR1) 

IF  (NSR.LE.O)  NSR=1 
CONTINUE 


+ 0.9 


C 

C 


**  NOTE  - - ADD  SPECIAL  EQUIPMENT  (AS ^ NECESSARY) 

**  SET  VOLTAGES  FOR  THIS  DESIGN 

W0B=27. 

V3M=25. 


BATTERY  ALGORITHM 


NASA 

4069 

NASA 

4070 

NASA 

4071 

NASA 

4072 

NASA 

4073 

NASA 

4074 

NASA 

4075 

NASA 

4076 

NASA 

4077 

NASA 

4078 

NASA 

4079 

NASA 

4080 

NASA 

4081 

NASA 

4082 

NASA 

4083 

NASA 

4084 

NASA 

4085 

NASA 

4086 

NASA 

4087 

NASA 

4083 

NASA 

4069 

NASA 

4090 

NASA 

4091 

NASA 

4092 

NASA 

4093 

NASA 

40  94 

NASA 

4095 

NASA 

4096 

NASA 

4097 

NASA 

40  98 

NASA 

4099 

NASA 

4100 

NASA 

4102 

NASA 

4103 

012075 

11 

NASA 

4105 

NASA 

4106 

NASA 

4107 

NASA 

AIDS 

012075 

12 

012075 

13 

012075 

14 

NASA 

4109 

NASA 

4110 

012075 

15 

NASA 

A112 

NASA 

4113 

NASA 

4114 

NASA 

4115 

NASA 

Aiie 

NASA 

1»117 

NASA 

^118 

NASA 

4119 

NASA 

4120 

NASA 

4121 

NASA  • 

4122 

NASA 

4123 

3^0 
3<i5 
350 
355 
360 
3 65 

\D 

I 

I — ' 

I— < 

>(»■ 

3 70 
3 75 
3 80 
3 85 
350 
395 


C 

C 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


DETERMINE  REQUIRED  CAPACITIES 

CR=(PL»TE/360O.)/(LMBOO»ETAD) 

IF  (Cft  .LT.  2300.0)  60  TO  238 
NB  = 4 ^ 

IF  (CR  tLT.  4700.0)  GO  TO  238 
NB  = 6 

IF  (CR  .LT.  7050.0)  GO  TO  238 
N3  = 8 

IF  (CR  .LT.  9400.0)  GO  TO  238 
NB  = 10 

238  NB  = AMAXO(NB,NCHOSE(2)) 

CA=CR/VDB 

DETERMINE  MINIMUM  INSTALLED  CAPACITY 
CI=CA*RFD 

DETERMINE  NUMBER  OF  CELLS  IN  SERIESdO  BE  SUPPLIED  TO  RED 
NC=VBM/VC 

DETERMINE  SELECTION  PARAMETERS  ON  CELLS 
CISTAR=CI/NB 

DETERMINE  CH /RGE  CURRENT  RATING  REQUIRED  FOR  THE  BATTERY  CHARGER  * 
CCELL^CISTAR 
ICH=CCELL/CHMINT 


C 

240 


C 

250 


C 

260 


COMPARE  THE  HARDWARE  PARAMETER  TO  THE  SELECTION  PARAMETER  *♦ 

IF  (0ATA8(6,ISR1) .GE. CAPMAX.ANC.0ATAB(6,ICELL) .GE. CIST AR. AND. DATA8 
1(6,ICHGR).GE.ICH)  GO  TO  270 

IF  (ISRI.GE.ISRIE)  GO  TO  240 

ISRl=ISRi+l 

GO  TO  220 


IF  (ICELL.GE.ICELLE) 
ISR1=1 

1CELL=ICELL+1 
60  TO  220 

IF  (ICH6R.GE.ICHGRE) 
3SR1=1 

ICELL=IOB(l)+l 
lCHGR=ICHGR*i 
GO  TO  220 

ICHOSE(l)=-l 
ICH0SE(2)=-1 
ICH0SE(3)  = -1 
RETURN 


GO  TO  250 


60  TO  260 


NASA 

NASA 

NASA 

NASA 

032475 

0 32475 

032475 

032475 

032475 

032475 

032475 

032475 

032475 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA. 

NASA 

NASA 

NASA 

NASA 


U24 

<(125 

<<126 

<(127 

13 

14 

15 

16 

17 

18 
.19 
20 
21 

<tl28 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 
4166 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 
4166 

4169 

4170 

4171 

4172 


REPRODUCIBILnY  OF  IHB 
ORIGINAL  PAGE  IS  POOR 


400 
405 
410 
415 
420 
425 
430 
435 
440 
445 
450 


C 

C 

270 


C 

C 

C 


C 

C 


271 

272 

273 

274 


C 

C 


C 

C 

C 

C 

2S0 


VCELL=0ATAB(24,ICELL) 

HCELL=0ATAB(23tICELU 

ETAE=0ATABC7,ICELU 

W8=NC*MCELt*K2 

V8=NC*VCELL*K1 

HBT=W8»NB 

VBT=VB«N8 

BATCAP=NB«DATAB(6,ICELU 

ETAC=OATAB{7,ICHGR) 

NCH=NB 

IF  (NCHOSEfl)  .6E.  NSR)  GO  TO  271 
NCHOSE(l>=NSR 

IF  (NCHOSE(2)  .GE,  N8)  GO  TO  272 
NCH0SE(2)=N8 

IF  (NCHOSE(3)  «GE.  NCH)  60  TO  273 
NCH0SEI3)=NCH 

IF  (NCH0SE(4)  .GE*  NPCU)  GO  TO  274 

NCH0SE(4)=NPCU 

NCHOSE(5)  = 0 

ICHOSE(l)  = OATAe<l,ISRl>, 

ICH0SE(2)=0ATAB(lyICELIi) 

ICH0SE(3)=DATAB(1,ICHGR) 

IC HOSE  (4)  = DA TABU, IPCU) 

ICHOSE(5)  = 0 

lPICtl»=ISRl 
1PIC(2)=ICELL 
IPIG{3)=IC.HGR 
IPIC(4)=IPCU 
IP  ICC  5 1=0 

^HT=NSR^fDATA8  123,  ISRl) +VIBT4NCH»DATAB(  23,  ICHGR.)  4NPCU* DATAB  ( 23,  IPCU) 

^ 4 HT 

VOL=NSR*OATAB<24,ISRl) 4VBT 4NCH*D ATA8 < 24 , ICHGR) 4NPCU*CATAB C 24, IPCU) 
‘ 4VOL 

GO  TO  590 

**  SHUNT  AND  DISCHARGE  DESIGN  •* 

ICONF=NC  CNF(5> 

IDR£=IDB(4) 

ISR2E=IOB(5> 

ZCELLE=10B(2) 

ICHGRE=I08  (6) 

NCCU=1 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 
4163 

4184 

4185 

4186 

4187 
4168 

4189 

4190 

4191 
41,92 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 


-116 


455 
460 
465 
4 70 
475 
so  460 
4 85 
490 
495 
500 
505 
510 


515 
5 20 
525 
530 
5 35 

I 

540 

545 

550 

555 

560 

565 


C 

c 
c 
c 
c 
c 
c 

360 

C 

C 

C 


C 

C 


** 

** 


c 

c 

c 


♦♦ 


370 


380 

C 

C ♦* 

C 


C 

C 

c 

c 

c 


*♦ 


322 


c 

c 

c 

c 

G 

C 


COHPUTE  SELECTION  PARAMETERS  FCft  SHUNT  AND  DISCHARGE  REGULATIO^ 
THIS  IS  FOR  DISCHARGE  RE GULATOR * SHUNT  REGULATOR , BATTERY, BATTERY 
CHARGER  AND  SIZING  THE  CENTRAL  CONTROL  UNIT  - - 

DETERMINE  NUMBER  OF  DISCHARGE  REGULATORS  REQUIRED 

N0=N8 

DETERMINE  EXCESS  ARRAY  POWER  FOR  REGULATION 

PS=(PL/ETAR)*M.  + T£OTS*(l./(ETAO*ETAC*ETA£))) 
FBa.=PS/((l«-DELR)*(i.-OELF)*(l,-DELTl*(-l-OELI)*(l-OELMI ) 

PEXCES=PBOL-RLMIN 

IF  (ITER  .GE,  1 .and,  NCHOSE(l)  ,GE.  NO)  NO=NCHOSE (1). 
PD=PL/(NO*ETAD) 

DETERMINE  NUMBER  OF  SHUNT  REGULATORS  REQUIRED 
CAPMAX  = 0.0 

IF  (PEXCES  .GE.  720.)  CAPMAX  = 120. 

IF  (PEXCES  .GE.1440.)  CAPMAX  = 240. 

KSR^l 

IF  (PLMIN.GE. PEXCES)  GO  TO  380 

h'SR  = PEXCES  7 DATAB  (6,ISR2>  +0.9 

IF  (NSR.LE.O)  NSR-1 

CONTINUE 

SET  VOLTAGES  FOR  SHUNT  AND  DISCHARGE  DESIGN 

V08=21. 

VBH=19. 

SET  UP  BATTERY  SELECTION  PARAMETER 

DETERMINE  REQUIRED  CAPACITIES 

CR=(PL*TE/3600.)/ {LMeDD*ETAD> 

IF  (CR  .LT.  1827.0)  GO  TO  322 
NB  = 4 

IF  (CR  .LT.  3654.0)  GO  TO  322 
NB  = 6 

IF  (CR  .LT.  5481,0)  GO  TO  322 
NB  = 8 

IF  CCR  ,LT.  7308.0)  60  TO  322 
NB  = 10 

NB  =:  AMAXO(NB,NCHOSE(3)) 

CA=CR/VDB 

DETERMINE  MINIMUM  INSTALLED  CAPACITY 
CI=CA*RFO 

DETERMINE  NUMBER  OF  CELLS  IN  SERIES (TO  BE  SUPPLIED  TO  RED 
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4287 

4283 

4289 

42^ 

4251 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 
16 

17 

18 

4309 

4310 


012076 

19 

NASA 

4312 

NASA 

<)313 

NASA 

4314 

NASA 

4315 

NASA 

4316 

NASA 

4317 

NASA 

4318 

NASA 

4319 

NASA 
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NASA 

4321 

NASA 

4322 

NASA 

4323 

NASA 

4324 

0 32475 

22 

032475 

23 

0 32475 

24 

0 32475 

25 

032475 

26 

032475 

27 

032475 

28 

032475 

29 

032475 

30 

NASA 

4325 

NASA 

4326 

NASA 

4327 

NASA 

4328 

NASA 

4329 

NASA 

4330 

NASA 

4331 

NASA 

4332 

NC=V8M/VC 

NASA 

4333 

C 

NASA 

4334 

570 

C 

CISTAR  IS  SELECTION  PARAHETER 

ON  CELLS 

NASA 

4335 

C 

NASA 

4336 

CISTAR=C1/N8 

NASA 

4338 

C 

NASA 

4339 

C ♦♦ 

CHARGER  SELECTION 

NASA 

4340 

575 

C 

' . * • > 

NASA 

4341 

C ♦ 

OETERHINt  CHARGE  CURRENT  RATING  REQUIRED  FOR  THE  8ATTERY  CHARGER  » 

NASA  , 

4342 

C 

NASA 

4343 

CCELL=GISTAR 

NASA 

4344 

ICH=CCELL/CHHINT 

/• 

NASA 

4345 

560 

C 

NASA 

4346 

c ** 

NASA 

4347 

c ** 

NASA 

4348 

C ♦♦ 

COMPARE  THE  HARDWARE  PARAHETER  TO 

THE  SELECTION  PARAMETER' 

NASA 

4349 

G ♦* 

NASA 

4350 

565 

C 

NASA 

4351 

C 

' 

NASA 

4352 

IF  (0ATAB(6«IDRI .GE.PD . AND. DATAB(6 

.ISR2) .GE.CAPHAX.AN0.0ATAB(6.IC£ 

NASA 

4353 

ILD.GE. CISTAR. AN0.DATA8(6, ICHGR)  .GE.ICH}  GO  TO  440 

NASA 

4354 

c 

NASA 

4355 

5 90 

IF  (lOR.GE.IORE)  GO  TO  390 

NASA 

4356 

IOR=IDR+l 

NASA 

4357 

60  TO  370 

NASA 

4358 

c 

NASA 

4359 

sO 

390 

IF  (ISR2.GE.iSR2E)  GO  TO  400 

NASA 

4360 

1 

5 95 

1DR=ID8(3)+1 

NASA 

4361 

[ll 

1SR2=ISR2+1 

NASA 

4362 

00 

GO  TO  370 

NASA 

4363 

C ■ 

‘ 

NASA 

4364 

400 

IF  (ICELL.GE.ICELLE)  GO  TO  410 

NASA 

4365 

600 

. 

I0R=I0e(3)4^1 

NASA 

4366 

' 

ISR2=IDB(4)+1 

NASA 

4367 

ICELL=:ICeLL+l  . 

NASA 

4368 

GO  TO  3?0 

NASA 

4369 

c 

" 1 

NASA  , 

4370 

605 

410 

IF  (ICHGR. GE.ICHGRE)  GO  TO  420. 

NASA  ■ 

4371 

IDR=:ID8(3)+1  . 

NASA 

4372 

' ISR2=ID8(4)+1 

NASA 

4373 

ICELL=IOB(l)+l 

NASA 

4374 

ICH6R=ICHGR+1 

NASA 

4375 

610 

GO  TO  370 

NASA 

4376 

c 

NASA 

4377 

• 

420 

DO  430  1=1,5 

NASA 

4378 

430 

.ICHOSE(I)=-l 

NASA 

4379 

RETURN 

NASA 

4380 

615 

C 

NASA 

4381 

C 

NASA 

4382 

440 

ETA0=dATA8(7,iDR) 

NASA 

4383 

ETAE=DATAB(7,ICELL) 

NASA 

4384 

ETAC=DATAB(7,ICHGR) 

NASA 

4385 

620 

VCELL=0ATAB(24,ICELL> 

NASA 

4366 

HCELL=DATAB(23,ICELU 

NASA 

4387 

WB=NC*HCELL*K2 

NASA 

4386 

V8=NC*VCELL*K1 

NASA 

4389 

WBT=HB'»N8 

NASA 

4390 

625 


VBT=V8*NB 

NCH=N9 

BATCAP=NB*DATAB<6,ICELL) 


IC HOSE  (II 
ICH0S£(2) 
ICHQSEO) 
ICH0SE(4) 
ICH0SE(5) 


OATABdyIDR) 

0ATAB(1,ISR2> 

DATABdylCELL) 

OATABdylCHGR) 

DATAB(lylCCU) 


IF  (MCHOSE(l) 
NCHOSE(l)=ND 
IF  (NCH0SE(2l  . 
KCH0SE(2I=NSR 
IF  CNCHOS£(3) 
NCH0SE(3)=NB 
IF  (NCH0SE(4I  . 
NCH0SE(41=NCH 
IF  <NCHOSE(5)  , 
NCHOSE(5l  = NCCU 


IPIC(1)=I0R 

IPIC(2)=ISR2 

IPIC{3)=ICELL 

IPIC(4)=ICHGR 

1PIC(5)=ICCU 


NO)  GO  TO  451 
NSR)  GO  TO  452 


GO  TO 


NCHI  I 
NCCU) 


HT=N0*0ATAB(23,IDfi)+NSR»DATAB(23fISR2)+HBT+NCH*0 ATAB<23, ICHGR) + 

* NCCU*0ATAB(23,ICCU)+HT 

V0L=N0^'DATAB(24,I0R)  + NSR*DATAB(24,ISR2)  +VBT*NSR*DATAB  ( 24, ICH6R)  ♦ 

♦ NCCU*0ATAB(24,ICCU)+V0L 

GO  TO  590 

SERIES  LOAD  REGULATION  DESIGN 

IC0NF=NC0NF(5) 

ILR£=I0BC8) 

ICELLE=IOB(2) 

ICHGRE=IOB(9) 

1SPOE=IOB(10> 

IP0£=I08(11) 

IF  (IPIC(l) .NEtO)  60  TO  460 

ILR=108(7)+1 

IC£LL  = I08(1)+1 

ICH6R=ID8(8)+1 

ISPD=IDB(9)+1 

IPO=IOB(10)+1 

£TALR=0.9 

ETA£=0.65 

ETAC=1.0 

ETAO=i.O 

NSPD=1 


665 

69D 

695 

700 

705 

N 710 

o 

715 
720 
725 
730 
7 35 


C 

460 


C 

470 


C 

480 


C 

490 


C 

500 

510 


C 
C 

c 
c 
c 
c 
c 
c 

520 

C 

C 

c 


«« 

v« 


c 

c 

c 

c 


NPD=1 
GO  TO 


520 


IF  (ITER.EQ.O)  GO  TO  470 
ILR=IPIC(1) 

ICELL=1P1C(2) 

ICHGR=IPIC(3) 

ISPD  = IPIC(4> 

IPO=IPIC  (5) 

GO  TO  520 

IF  (ILR.GE.ILRE)  GO  TO  460 

ILR=IPICU)+1 

ICELL  = IPIC(2) 

ICH6R=IPIC(3) 

ISPO=IPIC(4) 

IP0=IPIC(5) 

GO  TO  520 

IF  (ICELL.GE.ICELLE)  GO  TO  490 
ILR=I08(7) +1 
ICELL=IPIC(2)+1 
ICHGR  = IPIC(3» 

ISPD=IPIC(4) 

IP0=IPIC(5) 

GO  TO  520 

IF  (ICHGR.GE.ICHGRE)  GO  TO  500 

ILR=ID8(7)+1 

ICE1.L  = I0B(1)*1 

ICHGR=IPIC(3)+1 

ISPO=IPIC(4) 

IPO=IPIC(5) 

GO  TO  520  . 

DO  510  1=1,5 
ICHOSE<I)=-l 
RETURN 


COMPUTE  SELECTION  PARAMETERS  FOR  SERIES  LOAD  REGULATIOh 
THIS  IS  FOR  THE  LOAD  REGULAT GR , BATTERY , BATTERY  CHARGER  AND 
SIZING  THE  SOLAR  POWER  DISTRIBUTOR  AND  POWER  pISTRIBUTOR. 

NLR  IS  THE  NUMBER  OF  LOAD  REGULATORS  REQUIRED 
^LR=2 

♦♦  DETERMINE  EXCESS  ARRAY  POWER  FOR  REGULATION 

PS=(PL/ETAR)»(l.fT£DTS*Cl./(ETAO»ETAC*£TAEn) 

P80L=PS/C(l,-OELR)*(l.-DELFl*(l.-OELT»*(l-OELI}*(l-DELMn 

PEXC£S=PBOL-H.MIN 


DETERMINE  SELECTION  PARAMETERS  FOR  LOAD  REGULATORS 
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4482 

NASA 

4483 

NASA 

4464 

NASA 

4485 

NASA 

4486 

NASA 

4487 

NASA 

4488 

NASA 

4469 

NASA 

4490 

NASA 

4491 

NASA 

4492 

NASA 

4493 

NASA 

4494 

NASA 
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4496 

NASA 
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4501 

NASA 

4502 

c 


IF  (ITER  .GE.  1 .AND.  NGHOSE(l)  . 
FLR=PL/(ETALR*KLR) 

SET  VOLTAGES  FOR  THIS  DESIGN 


NLR)  NLR=NCHOSE(l) 


VOB=27. 

V8M=23. 

SET  UP  BATTERY  SELECTION  PARAMETERS 

DETERMINE  REQUIRED  CAPACITIES 

CR=(PL»TE/3600.)/(LMBD0*ETAD) 

IF  (CR  «LT.  2300. a)  GO  TO  522 
NB  = 4 

IF  (CR  .LT.  4700.0)  GO  TO  522 
NB  = 6 

IF  (CR  .LT.  7050.0)  GO  TO  522 
N9  = 8 

IF  (CR  .LT.  9400.0)  GO  TO  522 
. N8  = 10 

522  NB  = AMAXO(NB,NCHOSE(2)) 

CA=CR/V08 

DETERMINE  MINIMUM  INSTALLED  CAPACITY 
CI=CA*RFD 

DETERMINE  NUMBER  OF  CELLS  IN  SERIES (TO  BE  SUPPLIED  TO  RED 
NC=VBH/VC 


C 

C ** 


C 

C *♦ 


CISTAR  IS  SELECTION  PARAMETERS  ON  CELLS 
CISTAR=CI/NB 

CHARGER  SELECTION  PARAMETER 

DETERMINE  CHARGE  CURRENT  RATING  REQUIRED  FOR  THE  BATTERY  CHARGER  ♦ 

CCELL=CiSTAR 

ICH=CCELL/CHMINT 


COMPARE  THE  HARDWARE  PARAMETER  TO  THE  SELECTION  PARAMETER 


IF  (DATA8(6.ILR) .GE.PLR.ANO.OATAB(6,ICELL) .GE.CISTAR.AN0.DATAB{6.I 
ICHGR) .GE. ICH)  GO  TO  580 

IF  (ILR.GE.ILRE)  GO  TO  640 

ILfi=ILR+l 

GO  TO  530 
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0 32475 
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: ♦ NASA 

4534 

NASA 
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4537 
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4538! 
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4540 

**  NASA 
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NASA 
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.1  NASA 
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NASA 
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455  0 

NASA 
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855 
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865 
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890 
8 95 
900 
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C 


C 

C 

c 

c 

c 

590 


C 

C 

C 

600 


c 

c 

c 

610 

C 

C 

C 

620 


C 

C 

C 

630 

C 

c 

c 


c 

c 

c 

640 


C 

C 

C 

650 

C 

C 

C 


* NPD»DATAB(23,IPC)+WT 

**  SOLAR  ARRAY  SIZING  , 

ICCNF=NC0NF(5) 

FOCNWT=HT-WTIN-WBT 

GO  TO  (600t&i0t600»610f600t610),  ICONF 

*♦  ORIENTED  PADDLE  SOLAR  ARRAY  (NON-SPINNING) 

FW=7.3 

LM8DG=1. 


IC0MF  = NC0NF(6) 

GO  TO  (630»62Q«650} « ICONF 

**  BODY  MOUNTED*  BOX  SHAPE,  NON-SPINNING 

FW=3.4 

LHSD6=1. 

GO  TO  670 


ICONF=NC  ONF(l) 

IF  (ICCNF  .GE.  3)  GO  TO  640 

*♦  BODY  MOUNTED  CYLINDER  SPINNING 

FW=s3.4 

LHBOG=l./PIE 
GO  TO  670 

•*  BODY  MOUNTED  CYLINDER  NCN-SPINNING 
FH=3.4 

LMBOG=2*/PIE 
GO  TO  670 


ICONF=NCCNF(l) 

IF  lICCNF  ,GE.  3)  GO  TO  660 

**  BODY  MOUNTED  SPHERE  SPINNING 

FH=3.4 
LMBOG=,25 
GO  TO  670 
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c 

NASA 

^666 

c 

**  BOOY  MOUNIEO  SPHERE  NON-SPINNING 

NASA 

4667 

c 

NASA 

4668 

660 

FH=3.4 

NASA 

4669 

LMB0G=.5 

NASA 

4670 

C 

NASA 

4671 

C 

COMPUTE  ENERGY  BALANCE  EQUATION 

NASA 

4672 

C 

NASA 

4673 

670 

PS=PL/ETAR^(l.+TEOTS*(l./(ETAD*ETAC*ETA£))) 

NASA 

4674 

C 

NASA 

4675 

c 

COMPUTE  SIZING  FACtOR 

NASA 

4676 

c 

NASA 

4677 

FS=LMBOG*LM8CP*(Cl.-0£LR)*Cl.-OELF)*(l.-pELT>*(l.-0£LI)*(i.-OELM) J 

NASA 

4676 

c 

NASA 

4679 

c 

COMPUTE  ARRAY  AREA 

NASA 

4680 

c 

NASA 

4681 

A1=PS/  (FS*SOL*ETAI) 

NASA 

4682 

c 

NASA 

4683 

c 

COMPUTE  ARRAY  HEIGHT 

NASA 

4684 

c 

NASA 

4685 

HATE=A1*FH 

NASA 

4686 

c 

NASA 

4687 

c 

CONVERT  TO  ENGLISH  FROM  METRIC 

NASA 

4688 

c 

NASA 

4689 

AREA=A1* 10. 76426265 

NASA 

4690 

HA  TE=WATE*2. 20462 

NASA 

4691 

0 

NASA 

4692 

RETURN 

NASA 

4693 

c 

NASA 

4694 

END 

NASA 

4695 

SUBROUTINE  AUXPRC 


76/76  0PT=2 


nD 

I 


N 

in 


10 


15 


20 


25 


.30 


35 


AO 


45 


50 


C 

c 


SUBROUTINE  AUXPRO  (IPIC*  lERR,  ITER, 
COMMON  /USERI/  APOGEE,  CCMRAtJ 

EQMINT,  EQMIXL, 
EQH2YL, 

9CLi 


FTN  4,2+383 


03/27775  21.38.52 


iNuunr 

r\  t* 


lOEBUG, 

MICRO, 


u.Kirtx  n I f 

EQH2XL, 
ISATOR, 
RELME, 
XMER, 


COMMON  /8THN/  ACSSN, 
1 BITRAT(2), 
f OX, 
3 FC, 
A HTPT, 
5 LHBOO, 

I 

7 RAT, 

8 SATMT, 
f SAIYL, 
A T(2), 
e VCHP, 
C HT, 


c<4n&  I u, 

N812SH, 

SPEC<6>, 

XMEU 

ACSHP, 
CL  IFE, 
DY, 
ACTHST, 
HTRPRB, 
NC, 
PLMIN, 
RJ, 
SATXCG, 
SAIZL, 
TCTIHP, 
VOL, 


DIAMAX,  EEQWT(9), 
EQMIYL,  EQM12L, 
EQH2ZL,  TTHST, 

OPTEMP,  ORBINC, 
SPECl,  XOUMl, 


XJ, 

COMMON  /OaCOM/OATAB(55 *100) *IOB(30 ) 


ALT, 

CONVHT, 

OZ, 

HARNHT, 

HTRPWR, 

OMEGS, 

POCNHT, 

SA30LG, 

SATYCG, 

SIDE, 

TNKWT, 

HATE, 

XNZEROi 


AREA, 

0, 

EQBLG, 

HPT, 

PASSTR, 
RADA, 
SATLG, 
SATZCG, 
SYSCB, 
TPRIM, 
WB, 
■ YJ, 


EPME, 

E0M2HT, 

IA6NCY, 

PERIGE,- 

XCGSAl, 

BATCAP, 

OT, 

E08SI0, 

HTPIPE, 

IBTLOC, 

PJ, 

RAOAB, 

SATTHT, 

SAIXL, 

THCMWT, 

VB, 

H8T, 

Z'J 


8 


8 


COMMON  /DaCOM/DATAB(55,l 

COMM  ON/PRT  COM/-  ACCRCY, 

CQPI(7.2), 
: DRIHT, 

ccc  _ 


k A • 9 

6SE, 

CPS, 

PMP, 

QCP, 


AN, 
CTOT, 
FEEINV, 
ITRUNC, 
PA  vniii 


BF, 

DOTE, 

FEEOPS, 

HMOOLD, 

PAVPl 


9000 


c 
0 

DIMENSION  IPICC9) 

* IACCPT(20) 

DIMENSION  N(14> 

DATA  XMR/1.5/ 

PRINT  9fl00,ACTHST,TTHST 
FORMAT  (1X,9HACTHST  ~ ,E11 
ORXH  T— 0 • 

IFINC0NF(2),GT,1) 

TU  TC*  TO  O/M  r»  0.0 


AN, 

CISTAR, 

EQBSTR,  rttxMV, 

IREL,  ITRUNC, 

PAYINV,  PAYQUL,  .o..,, 

PMR,  P0WER(6),  PUj 

„.,QCP,  QCF,  ROLO(60),  SABMWT, 

SATINY,  SATR,  SEIP,  SEIR, 

SSREL(6>,  SU8E(7),  SUBT(7»,  SUBUE(7), 

TA,  TAU<6,6>;  tb;  tcJ 

TF,  TOOLR,  TOOLU,  TOT OPS, 

TS,  TTT, VOLUME (6),  VQL(60),I 

XLTOT,  XMEH,  XMEINV,  XMEL, 

XMEH,  XMEMT,  XVEST 
,NC0NF(6),1CH0SE(14),NCH0SE(14)  , 


BS, 

^ OE', 
FEER, 
NAME(3,60) , 
PE, 
PMR<60)  , 
SATADP, 
SKTAU<6)  , 
SUBUP(7), 
TE, 
TRUNC, 
HEIGHT(6) , 
XHEVL, 


C 

C 

c 

c 

c 


GO  TO  38 


.4,1X,8HTTHST  = ,£11.4) 


THIS  IS  COLO  GAS  CONFIGURATION 
DETERMINE  MAXIMUM  THRUST  FROM  SANDC 
FMAX=  AMAXKACTHST, TTHST) 

IF CFHAX.lt. 50.. AND, TOTIMP.LT.SQOOO.)  GO  TO  1 


022875 
022575 
0.22  575 
022575 
0 2-2575 
022575 
0 22575 
022575 
022575 
022575 
022575 
022575 
0 22S75 
022575 
0 22575 
0 22575 
022575 
022575 
022575 
022575 
0 22.575 
022575 
022575 
022575 
-022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
NASA 
NASA 
NASA 
NASA 
022075 
022075 
111874 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 


6 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 
•■548 

549 

550 

551 

552 

553 

554 

555 

556 

557 
5-58 
559 
,56  0 

561 

562 
. 56’3 

564 

565 

566 

567 

568 

569 

4705 

4706 

4707 
47  0 8 

13 

14 
58 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 


to 

'O' 


55 


60 


65 


70 


75 


eo 


65 


90 


95 


100 


105 


110 


c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


THIS  IS  NOT  AN  ACCEPTABLE  CGNFIGURAT lOK 

ICH0SE,(1)=-1 

RETURN 

1 CONTINUE 

IFIITER.NE.O)  GO  TO  3 . , 

INITIALIZE  ICHCSE,  NCHOSE,  lEFR  AND  SELECT  HARDWARE  NOT  SIZED 
I.E.,  THE  FILL  AND  VENT  VALVE  AND  RELIEF  VALVE 
CO  2 1=1, lA 
ICHOSE<I)=  0 

2 NCHOSE(I)=  0 
IERR=  0 
NCH0SE(1)=6 
NCH0SE<2)  = 2 
NCHOSE (3)=4 
NCH0SE(4)=9 
DO  299  1=5*8 

299  NCHOSE<I»=i 

11=  rOB(5)  + 1 
JJ=  IQB(6)  + 1 
ICH0SE(7)  = OATABd.Il) 

ICHOS6(e)  = DATAB{1,JJ» 

3 CONTINUE 
THRUSTER  SELECTION 

FIRST  CHECK, TO  SEE  IF  THERE  IS  AN  ACCEPTABLE  THRUSTER  IN  THE  DATA 
BASE 

J1E=  lOB(l) 
dl=,  1 

10  THRUST=  DATAB(6*J1) 

IF(THRUST.GE.FMAX)  GO  TO  12 
IFUI.EQ.UIE)  60  TO  11 

Jl=  J1  f 1 
GO  TO  10 

NO  ACCEPTABLE  THRUSTERS 

11  ICHOSE(l)=  -1 
RETURN 

AT  LEAST  ONE  ACCEPTAELE  THRUSTER 

12  CONTINUE 

SELECT  PNEUMATIC  ATTITUDE  AND  CONTROL  THRUSTERS 

FIRST^DETERMINE  SET  OF  ALL  THRUSTERS  WHICH  SATISFY  THE  INEQUALITY 
THRUST  G£  ACTHST 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA. 

NASA 

NASA 

NASA 

NASA- 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA- 

NASA 

NASA- 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA- 

NASA 

NASA 

NASA 

NASA 


4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 
472.8 
4729 
473,0 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 
4761. 
4762 
47.63 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 


115 

120 

125 

130 

135 

vD 

^ 1^0 
li»5 
ISO 
155 
led' 

165 


C 

c 

c 

c 


c 

c 

c 


Jl=  1 

13  THRUST=  OATA8(6.Jl) 

IF (THRUST. GE.ACTHST)  GO  TO  15 
lA  IF(J1.£Q.J1E)  GO  TO  16 
Jl=  J1  ♦ 1 
GO  TO  13 

15  2ACCPT{I)=  J1 
1=  I + 1 

GO  TO  lA 

16  CONTINUE 
IHAX=  I - 1 

CHOqSE^THAT  THRUSTER  FROM  THE  ABOVE  SET  WHICH  MINIMIZES  THE 
QUANTITY,  A8S(THRUST  « ACTHST) 


1=1 

Jl=  lACCPT(I) 

THRUST=  OATAB(6,Jl) 

OIFOLO=  A0S(THRUST  - ACTHST) 

17  ICHOSECl)=  OATAB(l,Jl» 

JSAVE=J1 

IFd.EQ.IHAX)  GO  TO  20 

18  1=  I f 1 

Jl=  lACCPT(l) 

THraJST=  0ATAB(6,J1) 

CIFNEH=  ABS(THRUST  - ACTHST) 

IF(OIFKEH.LE.OIFOLD)  GO  TO  19 
IF(I.LT.IHAX)  GO  TO  18  I 
60  TO  20 

19  DIFOLD=  DIFNEM 
GO  TO  17  . 

20  J1=JSAVE 
T(1)=DATAB(6,J1) 

SELECT  PNEUMATIC  TRANSLATIONAL  THRUSTERS  USING  ABOVE  PROCEDURE 

1=  1 
J2=  1 

21  THRUST=  DATAB<6,J2) 

IF(THRUST.6E«TTHST)  GO  TO  23 

22  1FCJ2.EQ.J1E)  60  TO  2A 
J2=  J2  ♦ 1 

60  TO  21 

23  IACCPT(I)=  J2 
1=  I +1 

GO  TO  22 
2A  CONTINUE 
IHAX=  I - 1 
1=  1 

J2=  lACCPT(I) 

THRUST=  DATA8(6,J2) 

OIFOLO=  ABS(THRUST  - TTHST) 

25  ICH0SE(2)=  0ATAS(1,,J2) 

JSAVE=J2  " 

IFd.EQ.IHAX)  GO  TO  28 

26  1=  I + 1 


A775 

NASA 

4776 

NASA 

4777 

NASA 

4778 

NASA 

4779 

NASA 

4780 

NASA 

4781 

NASA 

4782 

NASA 

4783 

NASA 

4784 

NASA 

4785 

NASA 

4766 

NASA 

4787 

NASA 

4768 

NASA 

4789 

NASA 

4790 

NASA 

4791 

NASA 

4792 

NASA 

4793 

NASA 

4794 

NASA 

4795 

NASA 

4796 

NASA 

4797 

NASA 

4798 

NASA 

4799 

NASA 

4800 

NASA 

48.01 

NASA 

4802 

NASA 

4603 

NASA 

4604 

NASA 

4805 

NASA 

4606 

NASA 

4807 

10167A 

1 

NASA 

4809 

NASA 

4610 

NASA 

4611 

NASA 

4812 

NASA 

4813 

NASA 

4614 

NASA 

4815 

NASA 

4816 

NASA 

4817 

NASA, 

4618 

NASA 

4819 

NASA 

4820 

NASA 

4821 

NASA 

■4822 

NASA 

4623 

NASA 

4824 

NASA 

4825 

NASA 

4826 

NASA 

4827 

NASA 

4326 

NASA 

'4829 

NASA 

4630 

NASA 

4831 

170 
175 
leo 
165 
190 
^ 195 

I 

• 

ts) 

lOo 

200 
205 
' 210 
215 
220 
225 


C 

C 

C 

C 

C 

C 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


J2=  lACCPT(I) 

THRUST=  DATAB(6*J2) 

CIFNEH=  A8S(THRUST  - TTHST) 
|F(piFhEM.LE.DIFOLD>  GO  TO  27 
IF(I.LT.IMAX)  GO  TO  26 
60  TO  28 

27  DIFOLO=  OIFNEW 
GO  TO  25 

28  J2=JSAVE 
T<2)=0ATAB(6,J2) 

THWJSTERS  HAVE  BEEN  SELECTED 

SET  NUH6ER  OF  EACH  TYPE  OF  THRUSTER 


CHECK  TO  SEE  IF  CYCLE  LIFE  REQUIREMENT  IS  SATISFIED 
IERR=  0 

IF(0ATAB<7,J1» .LT.CLIFE)  lERR-l 
IF(0ATAB(7, J2) .LT.CLIFE)  IERR=  lERR  + 10 

IS!  iS§?f  “ 

SaLVES^ANoViLTERS^’^^®^^  SELECTION  OF  PNEUMATIC  ISOLATION 

PTI=0ATA8(8.J1> 

RHO=  1.02E-7*PTI 

J!S9IP5=  ‘3.*ACTHST  + 2.*TTHST»/65.- 

SET  LAST  EQUIPMENT  INDICES 

J3E=  I0B(2> 

J4Es  IDB(3> 

J5E=  IDB(A) 

J6E=  IOB(5) 

DETERMINE  HARDWARE  INDICES 
CO  30  1=1,9 

IF«IPIC(I».NE. 0>  GO  TO  31 

30  CONTINUE 
GO  TO  4 

31  GO  TO  5 
iFJlPICilJ.LT.JSEI  GO  TO  6 
|F(IPIC(2) ,LT. J4E)  GO  TO  7 
IF5IPICC3) .LT.J5E)  GO  TO , 8 
IF<IPIC(4>.LT. J6E)”  GO  TO  9 

NO  ACCEPTABLE  COMBINATIONS 


NASA 

A832 

NASA 

A833 

NASA 

*<834 

NASA 

4835 

NASA 

4836 

NASA 

4837 

NASA 

4838. 

NASA 

4839 

NASA- 

4840 

101674 

, a 

NASA 

4842 

NASA 

4643 

NASA 

4844 

NASA 

4845 

NASA 

4846 

NASA 

4847 

NASA 

4848 

NASA 

4849 

NASA 

4850 

NASA 

4851 

NASA 

4652 

NASA 

4653 

NASA 

4854 

NASA 

4855 

NASA 

4856 

NASA 

4857 

NASA 

4858 

NASA 

4859 

NASA 

4860 

NASA 

4861 

NASA 

4862 

NASA 

4863 

NASA 

4864 

NASA 

4865 

NASA 

4866 

NASA 

4867 

NASA 

4868 

NASA 

4869 

NASA 

4670 

NASA 

4871 

NASA 

4872 

NASA 

4873 

NASA 

4874 

NASA 

4875 

NASA 

4876 

NASA 

4877 

NASA 

487  8 

NASA 

4879 

NASA 

4880 

NASA 

4861 

NASA 

4882 

NASA- 

4883 

NASA 

4884 

NASA 

4885 

NASA 

4886 

NASA 

4867 

NASA 

4668 

230 
2 35 
240 
245 
250 

sO 

I 

S 2 55 
260 
2 65 
270 
275 
280 


ICH0SE(1)  = 
RETURN 

4 CONTINUE 


-1 


J3= 
J4= 
J5  = 
J6= 


IDBU) 

I0B(2) 

108(3) 

I0B(4> 


1 

1 

1 

1 


GO  TO  1200 

CONTINUE 
J3=  IPIC(l) 

J4=  IPIC(2) 

J5=  IPIC(3) 

J6=  IPIC(4) 

GO  TO  1200 

CONTINUE 

J3=  IPIC(l)  + 1 

J4=  IPIC(2) 

J5=  IPIC(3) 

J6=  IPIC(4) 

GO  TO  12  00 

CONTINUE 
J3=  100(1)  + 1 
J4=  IPIC(2)  *■  1 
J5=  IP1C<3) 

J6^  IPIC(4) 

GO  TO  1200 


CONTINUE 
J3=  I0B(,1)  + 
J4=  IDB(2)  ♦ 
J5=  IPIC(3) 
J6=  I PIC (4) 
GO  TO  1200 


1 

1 

+ 1 


CONTINUE 
J3=  100(1)  + 1 
J4=  I0B(2)  ♦ 1 
J5=  100(3)  + 1 
J6=  IPIC(4)  *■  1 


C 

C 

C 

c 

c 

c 


1200  CONTINUE 


THE  HARDWARE  INDICES  ARE  SET 

32  IF<OATABC7,J3) .LT.C0AIS0.0R.0ATAB(7,J4) .GT.RMAX)  GO  TO  33 

ISOLATION  VALVE  ANO  FILTER  ARE  ACCEPTABLE 

DELPIS  = (1.29E-3/FHO>-*(HDOTPR/OATA9(7»J3))»*2 
DELPFI  = DATAB(7. J4)*HC0TPR**2 
ICH0SE(3)=  DATAB(1,J3) 


NASA 

4689 

NASA 

4890 

NASA 

4891 

NASA 

4892 

NASA 

4893 

NASA 

4894 

NASA 

4895 

NASA 

4896 

NASA 

4897 

NASA 

4698 

NASA  • 

4899 

NASA 

4900 

NASA 

4901 

NASA 

4902 

NASA 

4903 

NASA 

4904 

NASA 

4905 

NASA 

4906 

NASA 

‘♦907 

NASA 

4908 

NASA 

4909 

NASA 

4910 

NASA 

4911 

NASA 

4912 

NASA 

4913 

NASA 

4914 

NASA 

4915 

NASA 

4916 

NASA 

4917 

NASA 

4918 

NASA 

4919 

NASA 

4920 

NASA 

4921 

NASA 

4922 

NASA 

4923 

NASA 

4924 

NASA 

4925 

NASA 

4926 

NASA 

4927 

NASA 

4928 

NASA 

4929 

NASA 

4930 

NASA 

4931 

NASA 

4932 

NASA 

4933 

NASA 

4934 

NASA 

4935 

NASA 

4936 

NASA 

4937 

NASA 

4938 

NASA 

4939 

NASA 

4940 

NASA 

4941 

NASA 

49  42 

NASA  . 

. 494.3 

NASA 

4944 

NASA 

4945 

v£i 

I 


U) 

O 


265 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 


C 

C 

C 


C 

C 


C 

C 

c 

c 

c 

c 


ICH0S£(4>=  0ATA8<1,J<*> 

PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  REGULATOR  AND  TANK 

PftEG=  PTI  + 2.^DELPIS  + OELPFI 
COAREG=  WOOTPR/SQRT(5600.«PREG/1.27Ei») 

HPR=  l.l<>T0TIMP/65. 

ACSHP=  WPR 

VPRTs  3.4E3*WPR/28. 

IF (PREG.LT.DAT ABC  8, J5) . OR.PREG.GT.OATAB <9, J5) . OR.OATAB (7, J5I .LT< 
• C0AREG.0R.DATA8C6,J6> .LT.VPRT)  GO  TO  33 

REGULATOR  AND  TANK  ARE  ACCEPTABLE 
ICH0SE(5)=  DATA8(1,J5) 

ICH0SEC6J=  0ATA8(1,J6) 

TNKHT=  DATA8(23,J6) 

SIZE  PLUMBING  ANC  CONNECTORS 

PCHATE=t.2*DATABC2  3f  J6>»NCH0SE(6) 

STORE  LAST  INDICES  ACCEPTABLE 


322 


C 

C 

c 


c 

c 

c 


IPICC1)  = 
IPIC(2)= 
IPIC(3)= 
IPIC(4)  = 
N(7>=  II 
NC8I  = 
NU»  = 
NC2)  = 

N < 3) 

N<5)  = 
N(6)  = 

DO  322 


J3 

J5 

J6 


JJ 

J1 

J2 

J3 

J5 

J6 

1=1,8 


J=  NCI) 

HT=  HT  + NCH0SECII*0ATABC23,J) 

VOL=  tfOL  + NCHOSE  CI)^‘0ATAeC24,J) 

PL=  PL  + NCH0SECI)»DATA9C16,J) 

FLMIN=  PLMIN  NCHOSE  C I)  *OATAB  C18,  J) 
CONTINUE 

ORIHT=WT  +PCHATE-WEIGHT  Cl) 

HT=  NT  + ACSHP  + PCHATE 
RETURN 


33  CONTINUE 

HARDWARE  SELECTION  NOT  ACCEPTABLE  - INCREMENT  HARDWARE  INDICES 

IFCJ3.lt. J3E)  GO  TO  34 
IFCJ4.lt. J4E)  60  TO  35 
IFCJ5.LT.J5E)  GO  TO  36 
IFCJ6.lt. J6E)  GO  TO  37 

NO  ACCEPTABLE  HARDWARE  COMBINATICN 


NASA 

4946 

NASA 

4947 

NASA 

4948 

NASA 

4949 

NASA 

4950 

NASA 

4951 

NASA 

4952 

NASA 

4953 

NASA 

4954 

NASA 

4955 

NASA 

4956 

NASA 

4957 

NASA 

4958 

NASA 

4959 

NASA 

4960 

NASA 

4961 

NASA 

4962 

NASA 

4963 

NASA 

4964 

120574 

1 

NASA 

4966 

NASA 

4967 

NASA 

4968 

NASA 

4969 

NASA 

497,0 

NASA 

^971 

NASA 

4972 

NASA 

4973 

NASA 

h974 

NASA 

. <*^7S 

NASA 

4976 

NASA 

4977 

NASA 

497,8 

NASA 

4979 

NASA 

4980 

NASA 

4981 

NASA 

4982 

NASA 

4983 

NASA 

4984 

NASA 

4985 

NASA 

4986 

NASA 

4987 

111874 

59 

NASA- 

4968 

NASA 

‘♦989 

NASA 

4990 

NASA 

4591 

NASA 

4992 

NASA 

4993 

NASA 

4994 

NASA 

4995 

NASA 

4996 

NASA 

4997 

NASA 

4998 

NASA 

4999 

NASA 

5000 

NASA 

5001 

3ifO 
3<t5 
350 
355 
3 60 
3 65 

vO 

I 

t— < 

w 

370 
3 75 
380 
365 
390 
395 


C 

C 


U 

C 


c 

c 

c 


c 

c 

c 

c 

c 


ICH0SE(1)=  -I 
RETURN 

3i»  J3=  J3  + 1 
„ GO  TO  32 

35  J3=  100(1)  + 1 
JV=  J4  + 1 

60  TO  32 

36  J3-  106(1)  + 1 ■ 

J4=  108(2)  ♦ 1 
J5=  J5  + 1 

GO  TO  32 

37  J3=  lOB(l)  + 1 
J4=  108(2)  + 1 
J5=  106(3)  + 1 
J6=  J6  + 1 

60  TO  32 

38  CONTINUE 

IF(MC0NF  (2),EQ.3)  GO  TO  62 

THIS  IS  MONOPROPELLANT  CONFIGURATION 
DETERMINE  MAXIMUM  THRUST  FROM  SANDC 
FMAX=  AMAXKACTHSTtTTHST) 

, IF (FMAX.LT. 1000.. AND, TOTIMP. LT. 200000.. AND. TOTIMP.GE.IOOOC.)  60 


THIS  IS  NOT  AN  ACCEPTABLE  CONFIGURATION 


ICHOSE(l)=  -1 
• RETURN 

39  CONTINUE 

IF(ITER.NE.O)  60  TO  42 


INITIALIZE  |CHOS|,NCHOSE.IERR  AND  SELECT  HARDWARE.  NOT  SIZED 

RELIEF  VALVE, FILL  AND  VENT  VALVE  ANO  FILL  AND  DRAIN 

V AL  V u 


DO  40  1~  1,14 
ICHOSE(I)=  0 

40  NCHOSE(I)=  0 
IERR=  0 
NCHOSE(l)=6 
NCH0SE(2)=2 
NCH0S£(3)=4 
NCH0SE(4)=9 
DO  41  1=5,11 

41  NCHOSE(I)  = l 


11=  I0B(5)  + 

JJ=  I0B(6)  + 

KK=  IDB(ll)  . . 
ICH0SE(9)  = OATAB(l,JJ> 
ICHOSE(10)=  DATA8(1,KK) 


1 

1 

+ 1 


NASA 
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NASA 
NASA 
NASA 
NASA 
NASA 
' NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 


5002 

5003 

5004 
5003 

5006 

5007 

5008 

5009 

5010 

5011 

5012 

5013 

5014 

5015 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5038 

5039 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049 
5050. 

5051 

5052 

5053 

5054 
6055 

5056 

5057 

5058 

5059 


vO 

I 

00 

ro 


<*00 

<»05 

410 

415 

420 

425 

430 

435 

440 

445 

450 
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C 

C 

C 

C 

C 


C 

C 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 
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ICH0SE(11)=  DATAB(1,II) 

42  CONTINUE 

THRUSTER  SELECTION 

FIRST  CHECK  TO  SEE  IF  THERE  IS 
EASE 

J1E=  108 (6> 

J1  = IDB(7)  + 1 
100  THRUSTS  0ATAS(6,J1> 

IF (THRUST. GE.FMAX)  GO  TO  120 
1F(J1 .EQ.JIE)  GO  TO  110 
Jl=  J1  ♦ 1 
60  TO  100 

NO  ACCEPTABLE  THRUSTERS 

110  ICHOSE(l)=  -1 
RETURN 


AN  ACCEPTABLE  THRUSTER  IN  THE  DATA 


AT  LEAST  ONE  ACCEPTABLE  THRUSTER 
120  CONTINUE 

SELECT  PNEUMATIC  ATTITUDE  AND  CONTROL  THRUSTERS 

THRUST°GE^AGThIt^^^  WHICH  SATISFY  THE  INEQUALITY 

1=  1 

J1  = IDB(7)  ♦ 1 
130  THRUSTS  DATA8(6.J1) 

IF (THRUST. GE.ACTHST)  60  TO  150 
140  IF  (Jl. EQ.JIE)  GO  TO  16  0 
Jl=  Jl  + 1 
GO  TO  130 
150  IACCPTCI)=  Jl 
1=  I * 1 
GO  TO  140 
160  CONTINUE 

1HAX=  I - 1 

§SSS?l/yri8iV?iilII?  )*“'''  hinihizes  the 

1=1 

Jl=  lACCPT (I) 

THRUSTS  0ATAB(6,J1) 

^ DIFOLOs  ABSCTHRUST  - ACTHST) 

170  ICHOSE(l)=  0ATAB(1,J1) 

JSAVEsJl 

IFCI.EQ.IMAXI  GO  TO  200 
180  1=  I ♦ 1 

Jl=  lACCPT(I) 

THRUSTS  OATABCe.Jl) 
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NASA 

5061 

NASA 
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NASA 

5063 

NASA 

5064 

NASA 

5065 
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5066 
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5067 

NASA 

5066 
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5069 

NASA 

5070 

NASA 

5071 

NASA 

5072 

NASA 

5073 

NASA 

5074 

NASA 

5075 

NASA 

5076 

NASA 

5077 

NASA 

5078 

NASA 

5079 

NASA 

5080 

NASA 

5061 

NASA 

5082 

NASA 

5083 

NASA 

5064 

NASA 

5085 

NASA 

5086 

NASA 

5087 

NASA 

5088 

NASA 

5089 

NASA 

5090 

NASA 

5091 

NASA 

5092 

NASA 

5093 

NASA 

5094 

NASA 

5095 

NASA 

5096 

NASA 

5097 

NASA 

5098 

NASA 

5099 

NASA 

5100 

NASA 

5101 

NASA 

5102 

NASA 

5103 

NASA 

5104 

NASA 

5105 

NASA 

5106 

NASA 

5107 

NASA 

5108 

NASA 

5109 

NASA 

5110 

NASA 

Sill 

NASA 

5112 

NASA 

5113 

NASA 

5114 

NASA 

5115 

NASA 

5116 

01^  OT 

ORiGiHAL  PAGE  IS  W(M 


t*55 
460 
465 
4 70 
475 
vo  480 

I 

h- 

w 

w 

4 85 
490 
495 
500 
505 
510 


C 

C 

C 

C 


DIFN£H=  ABSCTHRUST  - ACTHST) 

IF<OIFN£W.L£.OIFOLD)  GO  TO  190 
IF<I«LT.1MAX>  GO  TO  180 
GO  TO  200 

190  DIFOLO=  DIFNEH 
GO  TO  170 
200  J1=JSAVE 

T(1I=0ATAB(6,J1) 

• SELECT  PNEUMATIC  TRANSLATIONAL  THRUSTERS  USING  ABOVE  PROCEDURE 
1=  1 

J2  = I0B(7)  + 1 
210  THWJST=  DATA8(6,J2> 

IF(THRUST.GE.TTHST>  GO  TO  230 
220  IF<J2,EQ.J1E)  GO  TO  240 
J2=  J2  + 1 
GO  TO  210 
230  IACCPT(I>=  J2 
1=  I + 1 
GO  TO  220 
240  CONTINUE 

IHAX=  I - 1 
1=  1 

J2=  lACCPT(I) 

THRUST=  DATA8(6,J2) 

CIFOLO=  ABS (THRUST  - TTHST) 

250  ICH0SE(2)=  OATABd^JS)  , 

JSAVE-J2 

IF(I.EO.IHAX)  GO  TO  280 
260  1=  I ♦ 1 ' 

J2=  lACCPT(I) 

THRUST=  OATAE(6,J2) 

OIFNEW=  ABS(THROST  • TTHST) 

• IFCOIFNEMiLE. DIFOLD)  GO  TO  270 
IF(I.LT.IMAX)  GO  TO  260 

GO  TO  280 

270  DIFOLD=  OIFNEW 
60  TO  250 
280  J2=JSAVE 

T(2)=OATAB(6,J2) 

THRUSTERS  HAVE  BEEN  SELECTED 

SET  NUMBER  OF  EACH  TYPE  CF  THRUSTER 


CHECK  TO  SEE  IF  CYCLE  LIFE  REQUIREMENT  IS  SATISFIED 


IERR=  0 

IF(0ATA8(7,J1)  .LT.CLIFE)  IERR=  1 
IF{OATAB(7,J2) .LT.CLIFE)  IERR=  lERR  + 


10 


IERR=  1 IMPLIES  THAT  THE  CYCLE  LIFE  OF  THE  ATTITUDE  AND  CONTROL 
THRUSTERS  IS  TOO  SHORTi  I£RR=  10  IMPLIES  THAT  THE  CYCLE  LIFE  OF 
THE  TRANSLATIONAL  THRUSTERS  IS  TOO  SHORT.  IERR=  11  IMPLIES  THAT- 


NASA 

5117 

NASA 

5118 

NASA 

5119 

NASA 

5120 

NASA 

5121 

NASA 

5122 

NASA 

5123 

101674 

3 

NASA 

5125 

NASA 

5126 

NASA 

5127 

NASA 

5128 

NASA 

5129 

NASA 

5130 

NASA 

5131 

NASA 

5132 

NASA 

5133 

NASA 

5134 

NASA 

6135 

NASA  . 

5136 

NASA 

5137 

NASA 

5138 

NASA 

5139 

NASA 

5140 

NASA 

5141 

NASA 

5142 

NASA 

5143 

NASA 

5144 

NASA 

5145 

NASA 

5146 

NASA 

£147 

NASA 

5148 

NASA 

5149 

NASA 

5150 

NASA 

5151 

NASA 

5152 

NASA 

5153 

NASA 

5154 

NASA 

5155 

NASA 

5156 

101674 

4 

NASA 

515  8 

NASA 

5159 

NASA 

5160 

NASA 

5161 

NASA 

5162 

NASA 

5163 

NASA 

5164 

NASA 

51-65 

NASA 

5166 

NASA 

5167 

NASA 

5168 

NASA 

5169 

NASA 

5170 

NASA 

5171 

NASA  , 

5172 

NASA 

5173 

. 515 


520 


525 


530 


5 35 


vO 

t 


540 


545 


550 


555 


560 


565 


C 

C 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 


THt  CYCLE  LIVES  OF  BOTH  THRUSTERS  ARE  TOO  SHORT 

WLVES^AND^FILTERS*^^^^^  SELECTION  OF  MONOFROPELLANT 
RHOF=  .0  36  • 

N00TF=(3.»ACTHST  + 2. fTTHST) /20O , 

IF  |NCONF(l)  ,EQ.^1»  WC0TF=TTHST/2Q 0 . 

COAISO=  WD0TF/SQRTI5(]  . ’RHOF/1. 29E-3) 

FMAX  = 5 0./WOOTF**2 

SET  LAST  EQUIPMENT  INDICES 


ISOLATION 


J3E= 

J4£= 

J5£= 

J6E= 

J7E= 

J8E= 


ioe<9) 

lOB(lO) 

106(4) 

IOB(2) 

IDB(ll) 

108(5) 


DETERMINE  HARDNARE  INDICES 
go  43  I=l,9  . 

IF(IPICd).NE.O)  GO  TO  44 

43  CONTINUE 
GO  TO  45 

44  IF(ITER.NE.O) 

IFaPICCD.LT, 

IF(IPIC(2)  ,LT.. 

IF(IPIC(3) .LT, 

IF(IPIC(4)  .LT., 
IFCIPIC(5).LT. J7E) 
IF(IPIC(6) .LT.J8E)  GO  TO  52 


GO  TO  46 
J3E)  GO  TO  47 
,J4E)  GO  TO  48 
iJ5E)  GO  TO  49 
>J6E)  GO  TO  50 
GO  TO  51 


NO  ACCEPTABLE  COMBINATIONS 

ICHOSE(l)=  -1  ' 

RETURN 

45  CONTINUE 

J3=  IDB(6)  * 1 
J4=  IDB(9)  + 1 
J5=  ID8(3)  ♦ 1 
J6=  IDB(l)  + 1 
J7=  IDB(IO)  + 1 
J8=  108(4)  + 1 
GO  TO  53 

46  CONTINUE 
J3=  IPIC(l) 

J4=  IPIC(2) 

J5=  IPIC(3) 

J6=  IPIC(4) 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


5174 

5175 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 
5166 

5187 

5188 
5169 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 
5208 

5201 

5202 

5203 

5204 
5205- 

5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 


570 
575 
560 
5 65 
590 
595 
600 
605 
610 
615 
620 


J8=  IPIC(6) 
60  TO  53 


47 


50 


C 

C 

C 

C 

C 


J3  = 
J4= 
J5= 
J6= 
J7  = 
J8= 


IPIC(I) 
IPIC(2) 
IPIC(3) 
IPIC(4) 
IPIC(5) 
IPIC  (6) 


♦ 1 


48 


GO  TO  53 

J3=  I0a<8)  + 1 
J4=  IPIC{2)  + 1 
J5=  IPIC<3) 

J6=  IPIC (4) 

J7=  IPIC(5) 

J8=  IPIC(6) 

GO  TO  53 


49 


J3  = 
J4= 
J5= 
J6= 
J7= 
J8=: 


108(8)  + 

I0B(9)  + 

IPIC(3)+ 

IPIC(4) 

IPIC(5) 

IPIC<6> 


GO  TO  53 


J3= 
J4= 
J5  = 
J6= 
JF= 
J8= 


IDB(6) 

IDB(9I 

108(3) 

IPIC(4) 

IPIC(5) 

IPIC(6) 


♦ 1 
+ 1 
+ 1 
♦ 1 


GO  TO  53 


51  J3=  IDB(8)  + 1 
J4=  I0B(9)  + 1 
J5=  ID8(3)  ♦ 1 
J6=  100(1)  * 1 
J7=  IPIC(5)  ♦ 1 
J8=  IPIC(6) 

GO  TO  53 

52  J3=  I0B(8)  ♦ 1 
J4=  100(9)  + 1 
J5=  I0B(3)  + 1 
J6=  IOB(l>  + 1 
J7=  lOB(lO)  + 1 
J8=  IPIC (6)  + 1 

53  CONTINUE 

THE  HAROWARE  IKOICES  ARE  SET 

54  IF(DATAB(7,J3) .LT.CDAIS0.0R,DATA8(7,J4l .GT.RMAX)  GO  TO  55 
FUEL  CIRCUIT  ISOLATION  VALVES  ANO  FILTERS  ARE  ACCEPTABLE 


NASA 

5231 

NASA 

5232 

NASA 

5233 

NASA 

5234 

NASA 

5235 

NASA  . 

5236 

NASA 

5237 

NASA 

5238 

NASA 

5239 

NASA 

5240 

NASA 

5241 

NASA 

£242 

NASA 

£243 

NASA 

£244 

NASA 

£245 

NASA 

5246 

NASA 
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NASA 

£248 

NASA 

5249 

NASA 

5250 

NASA 

5251 

NASA 

5252 

NASA 

5253 

NASA 

5254 

NASA 

5255 

NASA 

5256 

NASA 

5257 

NASA 

5258 

NASA 

5259 

NASA 

5260 

NASA 

5261 

NASA 

5262 

NASA 

5263 

NASA 

5264 

NASA 

5265 

NASA 

5266 

NASA 

5267 

NASA 

5268 

NASA 

5269 

NASA 

5270 

NASA 

5271 

NASA 

5272 

NASA 

5273 

NASA 

5274 

NASA 

5275 

NASA 

5276 

NASA 

5277 

NASA 

5278 

NASA 

5279 

NASA 

5280 

NASA 

5281 

NASA 

5282 

NASA 

5283 

NASA 

5284 

NASA 

5285 

NASA 

5266 

NASA' 

5287 

vD 

I 


'W 

CJ' 


6 25 
630 
635 
6^0 
645 
650 
655 
660 
665 
670 
675 
660 


C 

C 

C 


C 

C 

C 


C 

C 

C 

C 


C 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 
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DELPIS=:  (1.29E-3/RH0F>*(  V(00TF/DATA8C7,J3n**2 
OELPFI=  DATAB(7.J4)*HD0TF**2 
ICHOSE(3)=  OATAB(l,J3> 

ICH0S£(4)=  0ATA8(1,J4) 

IPIC(1)=  J3 
IPIC(2)=  J4 

PRELIHINARY  CALCULATIGKS  FOR  SELECTIpN  OF  PNEUMATIC  REGULATOR 
Ftl=  DATAB(8,J1) 

PFT=  PTI  ♦ 2.yO£LPIS  ♦ 2,»DELPFI 
PREG=  PFT  + 2.*DELPIS 
^OOTPR=  28.*1.02E-7*PREG»HOOTF/RHOF 
CDAR£G=  WDOTPR/SQRT«5600..*PR£G/1.27E4) 

IFCPREG.LT.DATAB(8,J5> .OR .PREG. Gt. OATAB ( 9, J5 ) , OR.DA TAB (7 , J5) .LT. 

» COAREG)  60  TO  55 

REGULATOR  IS  ACCEPTABLE 

ICH0SE<5)=  OATAB(l,J5) 

3PICI3)=  J5 

PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  PNEUMATIC  ISOLATION 
RHOPR=  3000.*1.02E-7 

COAISO=  WOOTPR/SQRT(200. ’RH0PR/1.29E-3 ) 

IF(0ATAB(7yJ6) .LT.COAISO)  GO  TO  55 

PNEUMATIC  ISOLATION  VALVE  IS  ACCEPTABLE 

ICH0SE(6J=  0ATAB(1)J6) 

1PICC4)=  J6 

PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  FUEL  TANK  AND  PNEUMATIC 
T A NK 

WF=  l.l-*TOTIMP/20fl. 

VF=  HF/.036 
VFTs=  1,1*VF 
VPRT=  PFT*VFT/(3flflO. 

HPRT=.0085*VPRT 
ACSHP=WF+MPRT 


- 2.»PFT) 


PFT)  GO  TO  55 


SELECT  FUEL  TANK. 

IF  CdATAB{7,J7)  .LT. 

IF  (MICRO  .£Q.  2)  GO  TO  5005 

IF  (DATABC7,J7).GE.PFT  .AND.  DATA8  (6 » 37 1 .6E. VFT)  GO  TO  5001 

AT  LEAST  ONE  FUEL  TANK  IN  DATA  BASE  WHICH  SATISFIES  PRESSURE 
DESIGN  CRITERIA. 

J7SAVE  = J7 
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NASA 

5289 

NASA 

5290 

NASA 

5251 

NASA 

5292 
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5293 
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5295 
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5296 
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5297 
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5302 
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5303 
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5305 
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5308 
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5309 
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5312 
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5313 

NASA 

5314 

NASA 

5315 

NASA 

NASA 

5316 

5317 

NASA. 

5318 

NASA 

5319 

NASA 

5320 

NASA 

5321 

NASA 

5322 

NASA 

5323 

NASA 

5324 

NASA 

5325 

NASA 

5326 

NASA 

5327 

NASA 

5328 

NASA 

5329 

NASA 

5330 

NASA- 

5331 

NASA 

5332 

013075 

1 

013075 

2 

013075 

3 

4 

5 

022075 
013075 
013075 
. 013,075 
013075 
013075 
0130,75 


15 
6 
. 7 
6 
9 

10 

11 


665 


6 90 


695 


700 


705 


■4D 

w 710 


715 


720 


7 25 


730 


735 


C 

C 

C 

C 


C 

C 

C 

C 

C 


VFTMAX  = DATA3(6,J7> 

CHECK  TO  SEE  IF  THERE  IS  AT  LEAST  ONE  TANK  IN  DATA  BASE  WHICH 
SATISFIES  BOTH  PRESSURE  AND  VOLUME  DESIGN  CRITERIA. 

UJ7  = ID8( 10)  + 1 . 

5000  IF  {0ATAB<6,JJ7) .GE.VFT  .AND.  0ATAB(7,J J7) .GE. PFT)  GO  TO  55 
IF  (JJ7  ,EQ.  J7E)  GO  TO  5002 
JJ7  = JJ7  + 1 
GO  TO  5000 

’5002  CONTINUE 

NO  TANK  IN  DATA  BASE  WHICH  SATISFIES  BOTH  THE  PRESSURE  AND  VOLUME 

LARGEST  VOLUME  WHICH  SATISFIES 

PRESSURE  DESIGN  CRITERIA. 


5003 


C 

C 


JJ7  = lOB(lO)  + 1 

IF^{0ATAB(7^JJ7).LT^PFT  .OR.  DATAB<6,JJ7) .XT.VFJHAX)  GO  TO  500  A 
J7SAVE  « JJ7  * 


C 

C 


C 

C 

C 


C 

c 

c 


5004  JJ7  =s  JJ7  ♦ 1 

IF  CJJ7  .LT.  J7E  ♦ 1)  GO  TO  5003 
J7  = J7SAVE 

NCHOSE(7)  = VFT  / 0ATAB(6.J7)  + .5 
IF  INCHOSE(7)  .LT.  1)  NCHCSE(7)  = 1 

5001  CONTINUE 


5005 


ICH0S£(7>  = DATAB(1,J7) 

IPIC(5)  = J7 

TNKWT  s DATAB(23,J7) 

SEt£CT  PNEUMATIC  TANK 

IF  (0ATABC6,J8)  .LT.  VPRT) 
2CHOSE(6)  = OATAB(l«J8) 
IPIC(6>  = J8 


GO  TO  55 


SIZE  PLUMBING  AND  CONNECTORS 

PCHATE  = .2*(OATAB(23,J7)*NCHOSE<7) 

N(9)=  JJ 

N(10)=  KK 

N(ll»=  II 

NC1)=  J1 

N(2)=  J2 

N(3)=  J3 

N(i»)=  J^^ 

N(5)=  J5 
N(6)=  J6 
N(7»=  J7 
N(8)=  v)8 


♦ 0ATAB<23,J8)*NCH0S£(8)) 
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013075 
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NASA 
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NASA 
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13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 
16 

1 

40 

41 

42 

43 

44 

45 

46 

47 
43 

49 

50 

51 

52 

53 

54 

55 

56 

5358 

5359 

5360 

5361 

5362 
6363 

5364 

5365 

5366 

5367 

5363 


CO  542  1=1,11 

NASA 

5369 

7 40 

J=  N(I) 

NASA 

5370 

VT=  WT  + NCH0SE(I)*0ATflB  (23cJ) 

NASA 

5371 

W0L=  tfOL  + NCHOSE  (I)»0ATAE«24,J) 

NASA 

5372 

PL=  PL  + NCH0SE(I)*0ATAB(16, J) 

NASA 

5373 

FLMIN=  PLHIN  + NCHOSE  ( I)  *DATA B(  18,  J) 

NASA 

5374 

745 

542 

CONTINUE 

NASA 

5375 

DRIWT=HT4-PCHATE-WEIGHT(1J  ' 

111874 

60 

hT=  WT  + ACSWP  * PCWATE 

NASA 

5376 

RETURN 

NASA 

5377 

C 

NASA 

5378 

750 

55 

CONTINUE 

NASA 

5379 

C 

NASA 

5360 

C 

HARDWARE  SELECTION  NOT  ACCEPTABLE  - INCREMENT  HARDWARE  INDICES 

NASA 

5381 

C 

NASA 

5382 

IF{J3.LT,J3E)  GO  TO  56 

NASA 

5383 

755 

1F(J4.LT.J4£)  GO  TO  57 

NASA 

5384 

IF(J5.LT. J5E)  GO  TO  58 

NASA 

5385 

IF(J6.LT.J6E)  GO  TO  59 

NASA 

5386 

IF{J7.LT.J7E)  GO  TO  60 

NASA 

.5387 

IF(J8,LToJ8E)  GO  TO  61 

NASA 

5388 

760 

C 

NASA 

5389 

c 

NO  ACCEPTABLE  HARDWARE 

NASA 

5390 

c 

NASA 

5391 

ICHOSE(i)=  -1 

NASA 

5392 

RETURN 

NASA 

5393 

sO 

765 

c 

NASA 

5394 

1 

56 

J3=  J3  + 1 

NASA 

5395 

1-^ 

Os) 

GO  TO  54 

NASA 

5396 

00 

57 

J3=  108(8)  + 1 

NASA  . 

5397 

J4=  J4  *■  1 

NASA 

5398 

770 

GO  TO  54 

NASA 

5399 

58 

J3=  IOB(8T  + 1 

NASA 

5400 

J4=  I0B(9)  ♦ 1 

NASA 

5401 

JS=  J5  + 1 

NASA 

5402 

GO  TO  54 

NASA 

5403 

775 

59 

J3=  ID0(8)  + 1 

NASA 

5404 

J4=  IDB(9)  + 1 

NASA 

5405 

J5=  108(3)  i-  1 

NASA 

5406 

J6=  J6  + 1 

NASA 

5407 

GO  TO  54 

NASA 

5408 

780 

' 60 

J3=  IDB(8)  + 1 

NASA 

5<>Q9 

J4=  I0B(9)  + 1 

NASA 

5410 

J5=  108(3)  + 1 

NASA 

5411 

J6=  lOB(l)  * 1 

NASA 

5412 

J7=  J7  1 

NASA 

5413 

785 

GO  TO  54 

NASA 

5414 

61 

J3=  IDB(8)  ♦ 1 

NASA 

5415 

J4=  IQB(9)  + 1 

NASA- 

5416 

J5=  I0B(3)  + 1 

NASA 

5417 

J6=  IDB(t)  + 1 

NASA 

5418 

790 

J7=  lOB(lO)  ♦ 1 

NASA 

5419 

J8=  J8  + 1 

NASA 

5421 

GO  TO  54 

NASA 

5422 

c 

NASA 

5423 

62 

CONTINUE , 

NASA 

5424 

795 

c 

NASA 

5425 

THIS  IS  BIPROPELLANT  CON FIGUFATI CN 

IFCTOTIMP.GE. 50000.)  GO  TO  63 

THIS  IS  NOT  AN  ACCEPTABLE  CONFIGURATION 

ICHOSE(i)=  -1 
RETURN 

63  CONTINUE 

IF(ITER.NE.fl)  GO  TO  65 


INITIALIZE  ICHOSEiNCHOSE.IERR  AND  SELECT  HARDWARE  NOT  SIZED 
I.E.t  FILL  AND  DRAIN  VALVES, FILL  AND  VENT  VALVE  AND  RELIEF 
VALVE 

00  64  1=1,14 
ICHOSE(I)=  0 

64  NCHOSE(I)=  0 
IERR=  0. 

NCH0SE(1)  = 6 
NCH0SE(2)=2 
NCH0SE(3)  = 3 
NCH0SE(4)=3 
NCH0SE(5»=4 
NCHOSE (6) =4 
00  649  1=7,11 

649  NCHOSE (I )=1 
NCHOSE (12)=2 
NCH0SE(13)=1 
NCH0S£(14)=1 
11=  I0B(5)  + 1 
JJ=  I0B(6)  * 1 
KK=  I0B(16}  + 1 
ICH0SE(12)=  0ATA8(1,KK) 

ICH0SE(13)=  DATA8(1,II) 

ICH0SE(14>=  DATAB(1,JJ) 

65  CONTINUE 
THRUSTER  SELECTION 

FIRST  CHECK  TO  SEE  IF  THERE  IS  AN  ACCEPTABLE  THRUSTER  IN  THE  DATA 
BASE 

FHAX=  AHAXl  (ACTHST , TTHST) 

J1E=  IDB<13) 

J1  = IDB<12)  + 1 
101  THRUST=  DATABCe.Jil 

IF (THRUST. GE.FMAX)  GO  TO  121 
IFCJI.EO.JIE)  GO  TO  111 
Jl=  J1  + 1 
60  TO  101 

NO  ACCEPTABLE  THRUSTERS 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

•NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


5426 


5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 

5461 

5462 
5i»63 

5464 

5465 

5466 

5467 

5468 

5469 

5470 

5471 

5472 

5473 

5474 

5475 

5476 

5477 
5470 

5479 

5480 
5461 
5482 


Ill  ICH0SE(1)=  -1 
RETURN 

AT  LEAST  ONE  ACCEPTABLE  THRUSTER 
121  CONTINUE 

select' PNEUMATIC  ATTITUDE  AND  CONTROL  THRUSTERS 

flRST^OE^RMlNE^SET  OF  ALL  THRUSTERS  WHICH  SATISFY  THE  IKECUALITY 
1=  1 

J1  = IDB(12)  ♦ 1 
131  THRUST=  DATAa(6,Jl) 

IF  (THRUST. GE.ACTHSTI  GO  TO  151 
lAl  IF(J1«EQ.J1E)  GO  TO  161 
Jl=  J1  + 1 
GO  TO  131 
151  IACCPT(I)=  J1 
1=  I + 1 
GO  TO  141 
161  CONTINUE 

IMAX=  I - 1 

CHOOSE  THAT  THRUSTER  FROM  THE  ABOVE  SET  WHICH  MINIMIZES  THE 
QUANTITY,  ASS (THRUST  - ACTHST) 

1=1 

Jl=  lACCPT(I) 

THRUST=  OATAB(6,Jl) 

DIFOLD=  ABS (THRUST  - ACTFST) 

171  ICHOSE(l)=  DATAB(1,J1) 
dSAVe=Jl 

IFd.EC.IHAX)  GO  TO  201 
181  1=  I + 1 

dl=  lACCPT(I) 

THRUST=  DATAB(6,J1) 

DIFNEH=  ABS(THRaST  - ACTHST) 

IF(OIFN£W.LE.OIFOLD)  GO  TO  191 
IF(I.LT.IMAX)  60  TO  181 
GO  TO  201 

191  DIFOLD=  DIFNEH 
GO  TO  171 
201  J1=JSAVE 

T(1)=QATAB(6,J1) 

SELECT  PNEUMATIC  TRANSLATIONAL  THRUSTERS  USING  ABOVE  PROCEDURE 


U2  = I0B(12)  + 1 
THRUST=  DATAB(6r. 


211  lHRUST=  DATAB(6rJ2) 

IF(THRUST.GE.TTHST)  GO  TO  231 
221  IF(J2.EQ.J1E)  GO  TO  241 
J2=  J2  + 1 
GO  TO  211 


NASA 

5463 

NASA 

5484 

NASA 

5485 

NASA 

5486 

NASA 

5487 

NASA 

5488 

NASA 

5489 

NASA 

5490 

NASA 

5491 

NASA 

5492 

NASA 

5493 

NASA 

5494 

NASA 

5495 

NASA 

5496 

NASA 

5497 

NASA 

5498 

NASA 

5499 

NASA 

5500 

NASA 

5501 

NASA 

5502 

NASA 

5503 

NASA 

5504 

NASA 

5505 

NASA 

5506 

NASA 

5507 

NASA 

5508 

NASA 

5509 

NASA 

5510 

NASA 

NASA 

5511 

5512 

NASA 

5513 

NASA 

5514 

NASA 

5515 

NASA 

5516 

NASA 

5517 

NASA 

5518 

NASA 

5519 

NASA 

5520 

NASA 

5521 

NASA 

5522 

NASA 

5523 

NASA 

5524 

NASA 

5525 

NASA 

5526 

NASA 

5527 

NASA 

5528 

101674 

5 

NASA 

5530 

NASA 

5531 

NASA 

5532 

NASA 

5533 

NASA 

5534 

NASA 

5535 

NASA 

5536 

NASA 

5537 

NASA 

5538 

NASA 

5539 

vO 

I 


910 


915 


920 


925 


930 


935 


940 


945 


950 


955 


960 


9 65 


C 

C 

C 

C 

C 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


231  IACCPT<I>=  J2 
1=  I + 1 
GO  TO  221 
241  CONTINUE 

IMAX=  I - 1 
1=  1 

J2=  lACCPT(I) 

THRUST=  0ATAB<6,J2> 

DIFOLOs  ABStTHRUST  - TTHST) 

251  ICHOSEC2)=  DATAB(1»J2) 

JSAVE=J2 

IFd.EG.IMAX)  GO  TO  281 
261  1=  I + 1 

J2=  lACCPT(I) 

THRUST=  DATAB(6,J2» 

DIFNEH=  ABSITHRUSF  - TTHST) 
IF<OIFNEW.LE.OIFOLO)  GO  TO  271 
IFCI.LT.IHAX)  GO  TO  261 
GO  TO  281 

271  CIFOLD-  DIFNEW 
GO  TO  251 
281  J2=JSAVE 

T(2>=0ATAB(6,J2) 

THRUSTERS  HAVE  BEEN  SELECTED 

SET  NUMBER  OF  EACH  TYPE  CF  THRUSTER 


CHECK  TO  SEE  IF  CYCLE  LIFE  REQUIREMENT  IS  SATISFIED 
1ERR=  0 

IFI0ATA8(7,J1) .LT.CLIFE)  1£RR=1 
IF(OATAB(7^J2) .LT.CL3FE)  IERR=  lERR  + 10 

IERR=,1  IMPLIES  THAT  THE  CYCLE  LIFE  OF  THE  AtTITUOE  AND  CONTROL 
THRUSTERS  IS  TOO  SHORT.  IERR=  10  IMPLIES  THAT  THE  CYCLE  LIFE  OF 
THE  TRANSLATIONAL  THRUSTERS  IS  TOO  SHORT.  IERR=  11  IMPLIES  THAT 
THE  CYCLE  LIVES  OF  BOTH  THRUSTERS  ARE  TOO  SHORT 

PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  BIPROPELLANT  ISOLATION 
VALVES  AND  FILTERS 

RHOF=  .032 
RHOO=  .054 

W00TF=<3.*ACTHST  ♦ 2.»TTHST)/ (260.^(1.+-XMR)  ) 

WOOTO=  HOOTF*XMR 

COAISFs  H0OTF/SQRTC50.WRH0F/1.29E-3) 

CDAISO=  WOOTO/SQRT(SO.*RHCO/1.29E-3) 

R«AXF=  50.7HOOTF**2 
FMAXO=  50./MOOTO**2 


SET  LAST  EQUIPMENT  INDICES 

J3E=  108(14) 

J4E=  108(14) 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

.NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

101674 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


5540 

£541 

5542 

5543 

5544 
6545 
£546 

5547 

5548 

5549 

5550 

5551 

5552 

5553 

5554 

5555 

5556 

5557 
5556 

5559 

5560 

5561 
6 

5563 

5564 

5565 

5566 

5567 

5568 

5569 

5570 

5571 

5572 

5573 

5574 

5575 

5576 

5577 

5578 

5579 

5580 
5531 
5502 
5583 
5584. 
5585- 

5586 

5587 

5588 

5589 

5590 

5591 

5592 

5593 

5594 

5595 

5596 


J5£=  I0B(15> 

NASA 

5597 

J6E=  108(15) 

NASA 

5598 

J7£=  106(4) 

NASA 

5599 

970 

J8E=  IDB(2) 

NASA 

5600 

J9E=  106(16) 

NASA 

5601 

J1QE=  106(16) 

NASA 

5602 

• 

J11E=  106(5) 

• NASA 

5603 

C 

NASA 

5604 

975 

c 

DETERMINE  HARDWARE  INDICES 

NASA 

5605 

c 

NASA 

5606 

DO  66  1=1,9 

NASA 

5607 

IF(lPICd)  ,NE«0)  GO  TO  67 

NASA 

5608 

ee 

CONTINUE 

NASA 

5609 

960 

GO  TO  68 

NASA 

5610 

67 

IF(ITER.NE.O)  GO  TO  69 

NASA 

5611 

IFdPIC(i)  ,LT,  J3E)  GO  TO  70 

NASA 

5612 

2FCIPIG(2).LT<,J4E)  GO  TO  71 

NASA 

5613 

IF(IPIC(3) .LT.J5E)  GO  TO  72 

NASA 

5614 

985 

IF(IPIC(4)  .LT.J6E)  GO  TO  73 

NASA 

5615 

IF(IPIC(5) .LT. J7E)  GO  TO  74 

NASA 

5616 

1F(1PIC(6) «LT,J8E)  60  TO  75 

NASA 

5617 

IFCIPIC(7) ,LT, J9E)  GO  TO  76 

NASA 

5618 

IF(IPIC(8)  .LT.  JlOE)  GO  TO  77 

NASA 

5619 

990 

IF(IPIC(9) .LT. JllE)  GO  TO  78 

NASA 

5620 

c 

NASA 

5621 

c 

NO  ACCEPTABLE  COMBINATIONS 

NASA 

. 5622 

vO 

c 

NASA 

5623 

1 

ICHOSE(l>=  -1 

NASA 

5624 

995 

RETURN 

NASA 

5625 

CO 

c 

NASA 

5626 

68 

J3=  I0B(13)  + 1 

NASA 

5627 

J4=  108(13)  + 1 

NASA 

5628 

J5r  108(14)  + 1 

NASA 

5629 

1800 

J6=  108(14)  + 1 . 

NASA 

5630 

J7=  rOB(3)  4-  1 ■ 

NASA 

5631 

J8=  108(1)  ♦ 1 

NASA 

5632 

J9=  108(15)  + 1 

NASA 

5633 

J10=  I0B(15)  * 1 

NASA 

5634 

1005 

Jll=  I0B(4)  ♦ 1 

NASA 

5635 

GO  TO  79 

NASA 

5636 

c 

NASA 

5637 

69 

CONTINUE 

NASA 

5638 

J3=  IPIC(l) 

NASA 

5639 

1010 

J4=  IPIC(2) 

NASA 

5640 

J5=  I PIC  (3) 

NASA 

5641 

J6=  ZPIC(4) 

NASA 

5642 

J7=  IPIC(5) 

NASA 

5643 

J8=  IPIC(6) 

NASA 

5644 

1015 

J.9=  IPIC(7) 

NASA 

5645 

J10=  IPIC(8) 

NASA 

5646 

Jll=  IPIC(9) 

NASA 

5647 

GO  TO  79 

NASA 

5648 

c 

NASA 

5649 

10  20 

70 

J3=  IPIC(l)  + 1 

NASA 

565.0 

J4=  IPIC(2) 

NASA 

5651 

J5=  IPIC(3) 

NASA 

5652 

J6=  IPIC(4). 

NASA 

5653 

143 


10  Z5 
10  30 
10  35 
10  40 
10  45 
so  10  50 
.10  55 
10  60 
10  65 
10  70 
1075 


J7=  IPIC(5) 
J8=  IPIC<6> 
J9=  IP1C(7) 
J10=  IPIC(8> 
Jll=  IPIC(9) 
GO  TO  79 

J3=  I0B(13)  ^ 
J4=  IPIC(2)  ^ 
J5=  IPIC(3) 
J6=  IPIC(4) 
J7=  IPIC(5> 
J8=  IPIC(6) 
J9=  IPIC(7> 
J10=  IPIC(6) 
Jll=  IPIC(9) 
GO  TO  79 

J3=  109(13)  i 
J4=  108(13)  ^ 
J5=  IPIC(3)  ^ 
J6=  IPIC(4) 
J7=  IPIC(S) 
J8=  IPIC(6) 
J9=  IPIC(7) 
J10=  IPIC(8) 
Jll=  I PIC  (9) 
GO  TO  79 

CONTINUE 
J3=  108(13)  4 
J4=  108(13)  4 
J5=  108(14)  4 
JG=  IPIC(4)  4 
J7=  IPIC(5) 
J8=  IPIC(6) 
J9=  IPIC(7) 
J10=  IPIC(8) 
Jll=  IPIC(9) 
GO  TO  79 

J3=  108(13)  4 
J4=  108(13)  4 
J5=  108(14)  4 
J6=  108(14)  4 
J7=  IPIC(5)  4 
J8=  1PIC(6) 
J9=  IPIC(7) 
J10=  IPIC(8) 
Jll=  IPIC(9) 
60  TO  79 

CONTINUE 
J3=  108(13)  4 
J4=  108(13)  4 
J5=  108(14)  4 
J6=  108(14)  4 


10  80 


1140 

1145 

1150 

1155 

1160 

v£) 

^ 1165 
1170 
1175 
IISO 
1185 
1190 


C 

c 

c 


c 


c. 


c 

G 

C 

C 


C 

C 

C 


C 

c 


c 


c 

c 

c 


ICH0SE(4)=  DATA8(1»J4) 

ICH0SEC5>=  DATA8(1,J5) 

1CH0SE(6)=  0ATAB(1»J6) 

IPIC<11=  J3 
IPIC(2)=  J4 
IPIC(3)=  J5 
IPIC(4)=  J6  . 

PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  PNEUMATIC  REGULATOR 
FTI=  0ATAB<8,J1) 

PFT=  PTI  + 2.»DLPISF  + 2.*0LPFIF 
POT=  PTI  + 2,*DLPIS0  + 2."OLPFIO 
PREG=  AMAXKPFT.POT) 

HOCTPR=  1. O5»1.02Et7*28.*PRE6*(HOOTF/RHOF  + MOOTO/RHOO> 

COAREG=  HOOTPR/SORT(5600 .*PREG/1 .27E4) 

^IF(PREG.LT.0ATA|{8,J7)  .OR.PREG  .GT. 0ATA8  <9,  J7>  .0R.DATAB,(7,  J7)  .LT, 

REGULATOR  IS  ACCEPTABLE 

ICH0SE(7)=  0ATAB(1,J7) 

IPIC(5>s  J7 

PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  PNEUMATIC  ISOLATION 
VALVE 

RHOPR=  1,02E-;7*3000. 

CDAISO=  HDOTPR/SQRT(  200.*RhOPR/1.2gE-^,3) 

IF(DATAB(7»J8> .LT.CDAISO)  GO  TO  81 

PNEUMATIC  ISOLATION  VALVE  IS,  ACCEPTABLE 

ICHOSE<d)=  OATAB(l»J8) 

IPIC<6)=  J8 


PRELIMINARY  CALCULATIONS 
TANK  AND  PNEUMATIC  TANK 


FOR  SELECTION  OF  FUEL  TANK, OXIDIZER 


fcP=  1,1*TOTIMP/260. 

ViF=  WP/(1.  + XHR) 

VF*  MF/RHOF 
VFT«  1.1*VF 
VO=  HF*XHR 
ACSHP=  HF  + WO 
VO=  WO/RHOO 
VOT=  l.l*VO 

VPRT=  PFT*(VFT  + VOT)/(300fl.  - 2.*PFT) 

IFCDATAB(6,J9)  .IT  . VFT  . OR .tlATAB (7, J9)  .LT  .PFT.OR .OATAB C6, JIO)  .LTi 
* VOT.OR.OATAB(7,J10).LT.PCT.OR.OATA8{6,J11) .LT.VPRT)  GO  TO  81 

FUEL  TANK,  OXIDIZER  TANK  AND  PNEUMATIC  TANK  ARE  ACCEPTABLE 

ICH0SE(9)=  DATA8(l,jg> 

ICHOSE(lfl)=  OATA8(1,J10> 


NASA 

5768 

NASA 

5769 

NASA 

5770 

NASA 

5771 

NASA 

5772 

NASA 

5773. 

NASA 

5774 

NASA 

5775 

NASA 

5776 

NASA 

5777 

NASA 

5778 

NASA 

5779 

NASA 

5780 

NASA 

5781 

NASA 
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NASA 

5801 
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NASA 

5803 

NASA 

5804 

NASA 

5805 

NASA 

5806 

NASA 

5807 

NASA 

5608 

NASA 

5809 

NASA 

5810 

NASA 

5811 

NASA 

5812; 

NASA 

5813' 

NASA 

5814 

NASA 

5815 

NASA 

5816 

NASA 

5817 

NASA 

5818 

NASA 

5819 

NASA 

5820 

NASA 

5821 

NASA 

5822 

NASA 

5823 

NASA 

5824 

' ,JL. 


1195 

1CH0SE(111=  DATABM,J11) 

NASA 

5825 

TNKWT=  DAJAB(23,J9>  4 DAT AB (23 , JIO ) 

NASA 

5826 

C 

NASA 

5827 

C 

SIZE  PLUMBING  AND  CONNECTORS 

NASA 

5828 

C 

NASA 

5829 

1200 

PCMATE=,24(0ATAB(23,J9)*NCH0SE(9)4DATA8(23t J10)*NCHOSE(10) 

120574 

3 

1 +DATAB(23,J11)*NCHPSE(11) ) 

120574 

4 

c 

NASA  ■ 

5831 

IPIC(7>=  J9 

NASA 

5832 

IPIC(8)=  JIQ 

NASA 

5833 

1205 

1PIC(9)=  Jll 

NASA 

5834 

N(12)=  KK 

NASA. 

5835 

N(13l=  II 

NASA 

5836 

K(14)=  JJ 

NASA 

5837 

N(l)=  J1 

NASA 

5838 

1210 

NC2)=  J2 

NASA 

5839 

N(3)=  J3 

NASA 

5840 

N(4)=  J4 

NASA 

5641 

N(5>=  J5 

NASA 

6842 

N(6>=  J6 

NASA 

5843 

1215 

N(7>=  J7 

NASA 

5844 

N(8»=  J8 

NASA 

5845 

N(9l=  jg 

NASA 

5846 

N(10>=  JIO 

NASA 

5847 

N(n)=  Jll 

NASA 

5848 

1229 

DO  802  I=l,14 

NASA 

5649 

J=  N(I) 

NASA 

5850 

' 

hT=  WT  4 NCH0SE(I)40ATAB(23tJ) 

NASA 

5851 

VOL=  WCL  4 NCH0SE(I)*0ATAe(24«J) 

NASA 

5852 

PL=  PL  4 NCHOSE(I)fDATAB<16,J) 

NASA 

5853 

1225 

aMIN=  PLMIN  4 NCHOSE(I)*DATAB(18,J) 

NASA 

5854 

802 

CONTINUE 

NASA 

5855 

ORIHT=HT4PCHATEtHEIGHT<1) 
NT=  HT  4 ACSHP  4 PCWATE 

111874 

NASA 

61 

5856 

RETURN 

NASA 

5857 

1230. 

c 

NASA 

5856 

81 

CONTINUE 

NASA 

5859 

c 

NASA 

5860 

c 

HATOWARE  SELECTION  NOT  ACCEPTABLE  - INCREMENT  HARDWARE  INDICES 

NASA 

5861 

c 

NASA 

5862 

1235 

1F(J3.LT.J3E)  GO  TO- 82 

NASA 

5863 

IFIJ4.LT.J4E)  GO  TO  83 

NASA 

£864 

IF(J5.LT.J5E)  GO  TO  84 

NASA 

5865 

IF(J6.LT.J6E>  60  TO  85 

NASA 

6866 

IF(J7.LT*J7E»  60  TO  86 

NASA 

5867 

1240 

IF(J8.LT.J8£)  60  TO  87 

NASA 

5668 

IF(J9«LT.J9E)  GO  TO  88 

NASA 

5869 

IF(JIO.LT.JIOE)  GO  TO  89 

NASA 

5670 

IF(J11.LT. JllE)  GO  TO  90 

NASA 

5871 

c 

NASA 

5872 

1245 

c 

NO  ACCEPTABLE  HARDWARE 

NASA 

5873 

c 

> 

NASA 

5874 

ICHOSE(l)=  -1 

NASA 

,5875 

RETURN 

NASA 

5876 

c 

NASA 

5877 

12  50 

82 

J3=  J3  4 1 

NASA 

5878 

GO  TO  80 

NASA 

5879 

vD 

I 


12  55 


1260 


12  65 


1270 


1275. 


1280 


1285 


1290 


1295 


13  00 


1305 


83  J3=  109(13)  + 1 
J4=  J4  + 1 

60  TO  80 

84  J3=  108(13)  + 1 
• J4=  108(13)  + 1 

J5=  J5  1 
GO  TO  80 

85  J3=  108(13)  + 1 
J4=  108(13)  * 1 
J5=  108(14)  + 1 
J6=  J6  ♦ 1 

GO  TO  80 

86  J3=  108(13)  + 1 
J4=  108(13)  ♦ 1 
J5=  108(14)  + 1 
J6=  108(14)  + 1 
J7=  J7  + 1 

GO  TO  80 

87  J3=  108(13)  + 1 

J4=  108(13)  + 1 
J5=  108(14)  1 

J6=  108(14)  + 1 
J7=  IDB(3)  * 1 
J8=  J8  + 1 

GO  TO  80 

88  J3=  108(13)  + 1 
J4=  108(13)  + 1 
J5=  IDB(14)  + 1 
J6=  108(14)  + 1 
J7=  I0B(3)  + 1 
J8=  IDB(l)  + 1 
J9=  J9  + 1 

60  TO  80 

89  J3=  108(13)  + 1 
J4=  108(13)  * 1 
J5=  108(14)  + 1 
J6=  108(14)  + 1 
J7-  108(3)  + 1 
J8=  lOB(l)  + 1 
J9=  IDB(15)  ♦ 1 
J10=  JIO  + 1 
60  TO  80 
J3=  108(13)  ♦ 1 
J4=  108(13)  + 1 
J5=  108(14)  ♦ 1 
J6=  108(14)  + 1 
J7=  I0B(3>  ♦ 1 
J8=  lOB(l)  + 1 
J9=  108(15)  + 1 
Jlfl=  108(15)  + 1 


90 


Jll=  Jll 
GO  TO  80 

END 


+ 1 


REGISTER  ALLOCATION 

4 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  318 


NASA 

5660 

NASA 

5881 

NASA 

5882 

NASA 

5883 

NASA 

5884 

NASA 

5865 

NASA 

5836 

NASA 

5887 

NASA 

5888 

NASA 

5889 

NASA 

5690 

NASA 

5891 

NASA 

5892 

NASA 

5893 

NASA 

5894 

NASA 

5895 

NASA 

5896 

NASA 

5897 

NASA 

5898 

NASA 

5699 

NASA 

5900 

NASA 

5901 

NASA 

5902 

NASA 

5903 

NASA 

5904 

NASA 

5905 

NASA 

5906 

NASA 

5907 

NASA 

5908 

NASA 

5909 

NASA 

5910 

NASA 

5911 

NASA 

5912 

NASA 

5913 

NASA 

5914 

NASA 

5915 

NASA 

5916 

NASA 

5917 

NASA 

5918 

NASA 

5919 

NASA 

5920 

NASA 

5921 

NASA 

5922 

NASA 

5923 

NASA 

5924. 

NASA 

5925 

NASA 

5926 

NASA 

5927 

NASA 

5928 

NASA 

5929 

NASA 

5930 

NASA 

5931 

NASA 

5932 

NASA 

5933 

-148 


FUNCTION  GAM 


76/76  OPT=Z 


FTN  4.2+383 


03/27/75  21.38,57 


FUNCTION  GAM(X) 

IF^(X,GT.1>  60  TO  2 

1 IF  (Z.GT.C.)  GO  TO  3 
2=sZ+l. 

60  TO  1 

2 Z=X-1. 

3 Tl=Z+.5 
TZG=Tl+5. 

T1=TZG**T1 

T1=£XP(-TZG)*T 1*2. 50862827465 

GAMZ=T1* (1.+76 .18009173/(Z+l.>-86.50332033/fZ+2« ) +24.01409822/ 

1208  5800  3E-2/(Z+5.)-.536382E-5/(Z+6.»  ) 

Xr  GO  TO  5 

4 GAMZ=GAHZ/Z 

IF  CZ.EQ.X)  60  TO  5 

2— Z“1 . 

GO  TO  4 

5 GAH=GAMZ 
RETURN 
END 


NASA 

5934 

NASA 

5935 

NASA 

5936 

NASA 

5937 

NASA 

. 5938 

NASA 

5939 

NASA 

5940 

NASA 

5941 

NASA 

5942 

NASA 

5943 

NASA 

5944 

NASA 

5945 

NASA 

5946 

NASA 

5947 

NASA 

5948 

NASA 

5949 

NASA 

5950 

NASA 

5951 

NASA 

5952 

NASA 

5953 

NASA 

5954 

NASA 

5955 

6l'T-( 


FUNCTION  CEFF 


76/76  OPT=2 


5 

10 

15 

20 

25 

30 

35 

40 

45 

50 


FUNCTION  CERF(i 
DIMENSION  BC28] 
IF{Y.GT.4.0)6O 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


AZERO 

A(l) 

A(2) 

A<3) 

A(4) 

AC5) 

A(6) 

A (7 1 

A(8) 

A(9I 

AflO) 

Atll) 

A(12) 

A (13) 

A(14) 

A(15> 

A(16) 

A(17) 

Add) 

A(19) 

A(20) 

A(21) 

A(22) 


DATA  A (23) 
DATA  A (24) 


DATA 

DATA 


A (25) 
A(26) 


DATA  8(27) 
DATA  8(28) 


DATA  AAZERO  / 
DATA  AA(1)  /- 

DATA  AA(2)  / 

DATA  AA(3)  /< 

DATA  AA(4)  / 

DATA  AA(5)  /- 

DATA  AA(6)  / 

DATA  AA(7)  /- 

DATA  AA(8)  / 

DATA  AA(9)  /- 

DATA  AA(IO)  / 
DATA  AA(il)  /- 
DATA  AA(12)  / 

DATA  AA(13)  /- 

DATA  AA(14)  / 

DATA  AA(15)  /- 

DATA  AA(16)  / 

DATA  AA(17)  /- 

DATA  0B(ia)  / 
DATA  08(19)  / 

X=Y/4. 

C0EFF=4,*X*X-2. 


' 3.88730365/ 
^-1.381€3142/ 

' .647316404/ 
'-.305931024/ 
'.1386797472/ 
'-.05924745/ 
'.023691751/ 
00884736263/ 

' .00308566171/ 
'-.001006386351/ 
'.000307546326843/ 
'-.88261983E-04  / 

' .23845096E-04  / 

'-.60791002E-05  / 

' .146597217E-05  / 

’-.033515993E-05  / 

' .fl07280579Er05  / 

Q01505791E-05  / 

’ .297094742E-08  / 

'-.56fl212739E-09  / 

. lflll31623E-09  / 

-.17506504E-10 
.029103813E-10/ 
-.4653264E-12 
.7164815E-13 
1063749E-13 
.1S2467E-14  4 

.0 

.0 

1.970705272/ 
-.014339740271775/ 
.00029736169220261/ 
-.9e035160E-a5/ 
.04331334E-05  / 


.2362150E-07 
.1S15496E-08 
.11084939E-09 
.9042S901E-11  i 
.80947054E-12/ 
.7853856E-13/ 
.817918E-14/ 
.90715E-15, 
.10646E-15 
.01315E-15 
.00170E-15 
.00023E-15 
•00003E-15 
.0 
.0 


FTN  4.2+383 


03/27/75  21.  38.58 


/ 

/ 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


5956 

5957 

5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

5967 

5968 

5969 

5970 

5971 

5972 

5973 

5974 

5975 

5976 

5977 

5978 

5979 

5980 

5981 

5982 

5983 

5964 

5965 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

5994 

5995 

5996 
5997;. 

5998 

5999 

6000 
6001 
6002 

6003 

6004 

6005 

6006 

6007 

6008 
6009 


OST-i 


55 

60 

65 

70 


00  1 1=1,26 
J=27-I 

1 B(J>=C0EFF*B(J4-1)-B(J+2)  +A<J» 

BZ£RO=CO£FF*B( 1) -8(2) +AZEFO 

CERF=X/2,*{BZER0-B(2)) 

RETURN 

2 x=<*./y 

C0£FF=4.*X*X-2. 

DO  3 1=1,17 
J=18-I 

3 BB{J)=COEFF^08  (J+1) -BB  (J +2) +A  A ( J) 
BaZERO=COEFF»aB{l)-BBC2)+AAZERO 

CERF=(BBZ£R0-BB(2)  )/(2.*Y*EXP(Y*Y))*.S6418958  35-47  75e 
RETURN 
END 


NASA  . 

6010 

NASA 

6011 

NASA 

6012 

NASA 

6013 

NASA 

6014 

NASA 

6015 

NASA 

6016 

NASA 

6017 

NASA 

6018 

NASA 

6019 

NASA 

6020 

NASA 

60  21 

NASA 

6022 

NASA 

6023 

NASA 

6024 

NASA 

6025 

vO 


SUBROUTINE 

RELY 

76/76  0PT=2 

FTN  4.2+383 

03/27/75 

21.39.00 

SUBROUTINE  RELY  ( IRTN, IDS. NE QUIP) 

NASA 

60  26 

. COHMON 

/USERR/  ISPT,.  ISUB, 

KEOPT, 

RFIXEO, 

SLBMX 

022575 

570 

C 

022575 

571 

COHHQN 

/USERI/  APOGEE, 

. COMRAT, 

OIAMAX, 

EEQHT(9) , 

EPME, 

022575 

572 

5 

1 

EQHIHT, 

. EQHIXL, 

EQMIYL, 

EQHiZL, 

EQM2HT, 

022575 

573 

2 

EQM2XL, 

EQM2YL, 

EQM2ZL, 

FE, 

lAGNCY, 

022575 

574 

3 

IDEBUG,  ISATOR, 

MB12SH, 

T8I, 

ORBINC, 

PERI6E, 

.022575 

575 

4 

MICRO,  RFNL, 

SPEC  (6,), 

CONS, 

Ti 

XCGSAl, 

0 22575 

576 

5 

XMER, 

XHEU 

0 22575 

577 

10 

c 

022575 

578 

COMMON 

/BTWN/  ACSSN, 

ACSHP, 

ALT, 

AREA, 

BATCAP, 

022575 

579 

1 

BITRAT(2), 

■ CLIFE, 

‘ CONVHT, 

XOUM2, 

DT, 

022575 

58  0 

2 

OX, 

oz, 

EQ8LG, 

E08SI0, 

022575 

581 

3 

FC, 

FF, 

HARNHT, 

HPT, 

HTPIPE, 

022575 

582 

15 

4 

H f P T t 

• HTRFRBi 

HTRPWR, 

IBTLOC, 

022575 

583 

5 

NC, 

OHEGS, 

PASSTR, 

PJp 

0 22575 

584 

6 

PL, 

PLMIN, 

POCNMT, 

RAOA, 

RAOAB, 

022575 

585 

7 

RAT, 

, RJ, 

SABOLG, 

SATLG, 

SATTHT, 

022575 

586 

8 

SATHT, 

- SATXCG, 

SATYCG, 

SATZCG, 

SAIXL, 

022575 

587 

20 

9 

, SAIYL, 

SAlZLj 

SIDE, 

SYSLS, 

THCMWT, 

022575- 

568 

A 

THRUSTC2) , 

TI, 

TNKHT, 

TP.  RIM, 

VB, 

022575 

589 

3 

VCHP, 

VOL^ 

HATE, 

HB, 

HBT, 

022575 

550 

C 

WT  9 

XJ, 

NZERO, 

YJ. 

ZJ 

022575 

551 

sO 

c 

022575 

592 

' 

25 

COMMON 

/OBCOM/  R(31) ,NR(60),RI(31, 

60) ,Z(31)  , 

R0(31),R0UMt31),  . 

022575 

553 

♦ 

SAVR(31), 

SAVNRM(31) 

,RNEH(31)  ,1 

NM>(60),SAVHX(60). 

0 22576 

594 

♦ 

.COST(60), 

DUM(3213) 

022575 

555 

c 

0 22575 

556 

COMMON 

/CHOSE/  COSTM(5,60)4 

OPIA(il,60),  ICH0S£(&0), 

022575 

5 57 

30 

1 

NCHOSE 

(60),  OATAB  ( 6,60 

),  SKO(7,60), 

022575 

558 

2 

THM(4, 

60) 

022575 

559 

c 

0 22575 

600 

COMMON/PRTCOM/  ACCRCY, 

AH, 

‘ AN, 

BFj 

BS, 

022575 

601 

1 

CDPI(7,Z>, 

CISTAR, 

CTOT, 

DOTE, 

0£, 

022575 

602 

35 

2 

ORIHT, 

EQBSTR, 

FEEINV, 

FEEOPS, 

PEER,, 

022575 

603 

3 

GSE, 

IREL, 

ITRUNC, 

HMOQLO, 

NAME(3,60), 

022575 

604 

4 

OPS, 

PAYINV, 

PAYQUL, 

PAYR, 

PE, 

022575  ■ 

605 

5 

FMP, 

PMR, 

P0MER(6), 

PU, 

PNR(60) , 

022575 

606 

& 

QCP, 

QCR, 

ROLO(60), 

SABMHT, 

SATAOP, 

022575 

607 

40 

7 

SATINV, 

SATR, 

SEIP, 

SEIR, 

SKTAU(6), 

022575 

603 

8 

SSREL(6) , 

SUBE (7), 

SUBT<7), 

SUBUE(7) , 

SUEUP(7), . 

022575 

609 

9 

TA, 

TAU  (6,6), 

XOUMl, 

TC, 

TE, 

022575 

610. 

A 

TFi 

TOOLS, 

TOOLU, 

TOTOPS, 

. IRUNC, 

,022575 

611 

B 

TS, 

TTTi 

VOLUHE(6), 

VQL(6Q), 

W£IGHT(6), 

022575 

612 

45 

C 

XLTOT, 

XMEH, 

XMEINV., 

XMEL, 

XMEVL, 

0 22  575 

613 

0 

XMEH, 

XMEHT, 

XVEST 

0.22575 

614 

CIMENSION  N(5) ,NEQUIP(5) 

NASA 

€042 

REAL  KMDOLD*HHON£H«LAMS» 

NZERO 

NASA 

6045 

INTEGER  SAVMX.SAVNSR 

NASA 

6046  . 

50 

c 

. . . . .. 

, NASA 

60  47 

c 

NASA 

6048 

c 

INITIAL 

NASA 

6049 

c 

VARIABLES  SIZE 

ORIGIN- 

OEFN 

NASA 

6050 

c 

CHANGE 

NASA 

• 6051 

55 


60 


65 


70 


75 


60 


ui 

N 

85 


90 


95 

100 

105 

110 


C 

C 

C 

c 

c ■ 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

110 


NSMX 

1 

EXT-NC 

NSR 

1 

EXT-  C 

IRTN 

1 

EXT-NC 

JHIN 

1 

EXT-NC 

JHAX 

1 

EXT-NC 

NR 

N(NSS) 

EXT-  C 

NMX 

N(NSS) 

EXT-NC 

NT 

1 

EXT-NC 

OELH 

1 

EXT-NC 

IT  RUNG 

1 

EXT-NC 

R 

ITRUNC 

I NT 

ROLO 

ITRUNC 

EXT-  C 

RNEW 

ITRUNC 

I NT 

RI 

ITRUNC  . 
♦N(NSS> 

EXT-  C 

COST 

N(NSS) 

EXT-NC 

RHO 

1 

INT 

RHOTH 

1 

EXT-NC 

OLORHO 

1 

INT 

MMOOLO 

1 

INT 

HMONEW 

1 

INT 

JSAVE 

1 

-INT 

SAVRNW 

ITRUNC 

INT 

SAVR 

ITRUNC 

INT 

SAVMHD 

1 

INT 

SYSLB 

1 

EXT-  C 

SLBMX 

iTABd.J) 

1 

EXT-NC 

N(NSS) 

EXT-NC 

INO 

1 

INT 

I 

1 

INT 

RFIXEO 

1 

EXT-NC 

MAX  NUM  SYSTEM  REDUNDANCIES 
CURRENT  NUM  OF  SYSTEM 
REDUNDANCIES 
RETURN  INDICATOR 
LOWER  LIMIT  ON  MODULE  NUM 
UPPER  LIMIT  ON  MODULE  NUM 
CURRENT  NUM  OF  REDUNDANCIES  I 
MODULE  J 

MAX  NUM  REDUNDANCIES  IN  MOGUL 

=1  R(TRUNC)  MODE 

LOOP- AND  OPTION  PARAMETER 
TIME  INCREMENT 
NUM  OF  TIME  POINTS 
RELIABILITY  FNC  FOR  MODULE  J 
=ITRUNC  HMD  MODE 
PREVIOUS  VALUE  OF  SYSTEM 
RELIABILITY 

SYSTEM  RELIABILITY  WITH  WITH 

REDUNDANCY  ADDED 

SYSTEM  RELIABILITY  MATRIX 

VALUE  OF  EXPENSE  OPTION  FOR 
MODULE  J 

DECISION  PARAMETER  ( 

ABSI*NEH  - *OLO)/EXPENSE 
LOWER  BOUND  FOR  RHO 
PREVIOUS  VALUE  OF  RHO 
PREVIOUS  MMO  VALUE 
HMD  VALUE  WITH  A REDUNDANCY 
ADDED 

MODULE  WITH  LARGE,ST  VALUE  OF 
RHC 

SYSTEM  RELIABILITY  FNC  WITH  A 
REDUNDANCY  IN  MODULE  JSAVE 
RELIABILITY  FNC  FOR  MODULE 
JSAVE  WITH  A REDUNDANCY  ADDED 
MMO  WITH  A REDUNDANCY  ADDED  I 
MODULE  JSAVE 
SYSTEM  WEIGHT 
MAX  SYSTEM  WEIGHT 
REDUNDANCY  WEIGHT  FOR  MODULE 
LOOP  INDEX 
INDEX 

INITIAL  RELIABILITY 


SUBROUTINES  CALLED 


QSF  - INTEGRATION  BY  SIMPSONtS  RULE-  (SSP) 
RI.MOO-  RELIABILITY  MODELS  CALCULATION 

'♦♦♦*PROGRAM*iNlflALizAfioNS****** .** 


DO  110  1=1,60 
NR(I)=0 


NASA 

6QSE 

NASA 

6053 

NASA 

6054 

NASA 

6055 

NASA 

6056 

NASA 

6057 

:N  NASA 

6058 

NASA 

6059 

E NASA 

6060 

NASA 

6061 

NASA 

6062 

NASA 

6063 

NASA 

6064 

NASA 

6065 

NASA 

6066 

NASA 

6087 

NASA 

6068 

NASA 

6069 

A NASA 

6070 

NASA 

6071 

NASA 

6072 

NASA 

6073 

NASA 

6074 

NASA 

6075 

NASA 

6076 

NASA 

6077 

NASA 

6078 

NASA 

€079 

NASA 

6060 

NASA 

6081 

NASA 

6082 

NASA 

6083 

NASA 

6064 

NASA 

6085 

NASA 

60  86 

NASA 

60  87 

NASA 

6088 

N NASA 

6089 

NASA 

6090 

NASA 

6091 

NASA 

60  92 

J NASA 

6093 

NASA 

6094 

NASA 

6095 

NASA 

6096 

NASA 

6097 

NASA 

6098 

NASA 

6099 

NASA 

6100 

NASA 

6101 

..  NASA 

6102 

NASA 

6103 

NASA 

6104 

. NASA 

61.05 

NASA 

6106 

NASA 

€107 

NASA 

6103 

NO 

1 


(J1 

00 


115 


120 


125 


130 


135 


1<«0 


145 


150 


155 


160 


165 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


USER  INPUTS 


c 

c 

c 

c 

g 

c 

c 

c 

c 

c 

c 

c 


KEOPT 

RFIXEO 

sva.8 

SLBMX 

TRUNC 

ITga)NC 

ist^ 

ISPT 

SPECl 

SPECCK) 

SPEC (NSS *1) 

N(K> 


EXPENSE  OPTION  INDICATOR 

1^  „ WEIGHT 

CTHERHISE  COST 

INITIAL  SYS  RELIABILITY 

INITIAL  HEIGHT  (POUNDS) 

MAX  SYS  HEIGHT 

MISSION  LENGTH  (HRS) 

NUM  OF  TIME  POINTS 


REQUIREMENTS  OPTION 
1 

OTHERWISE 


NO  SU8-SYS  SPEC 


SINGLE  POINT  FAILURE  REQUIREMENTS  OPTION 
0 . „ ^ REQ  NOT  IN  EFFECT 
OTHERWISE  REQ  IN  EFFECT 

HMD  SYS  REQUIREMENT  (HRS) 

R(ITRUNC)  SUB-SYS  REQ?  K=1,NSS 
DEFAULT  VALUE  IS  0.0 

R(ITRUNC)  SYS  REQ  DEFAULT  VALUE  IS  0.0 
CUMULATIVE  NUM  OF  MODULES  THRU  SUB-SYS  K 


100 


TRUNC=TPRIH*73fl. 

SPECl-CONS*? 30  ALPHA=TRUNC/  ( (-ALOG  (RFNL)  ) *♦.  625) 

ITRUNC=31 

SYa.8=SATTWT 

^ SET  NUM  OF  SUB  SYS 

NSS=5 

ACCUMULATE  N 

N(1)=N£QUIP(1)  N 

CO  100  1=2. NSS 

MI)=NEQUIP(I)+N(I-1) 

***  SIS  INPUTS 


ACSWP 

EHU 

ESIG 

MAXEXP 

NZERO 

DC 


INITIAL  EXPENDABLES  HEIGHT  (POUNDS) 
EXPENDABLES  INITIAL  MEAN  LIFETIME  (HRS) 
EXPENDABLES  INITIAL  STD.  DEV.  (HRS) 

MAX  NUM  OF  EXPENCA8LE  INCREMENTS 
ORBITAL  MEAN  MOTION  (RAO/HRS) 

DUTY  CYCLE 


NASA 

6109 

NASA 

6110 

NASA 

6111 

NASA 

6112 

NASA 

6113 

NASA 

6114 

NASA 

6115 

NASA 

6116 

NASA 

6117 

NASA 

6118 

NASA 

6119 

NASA 

6120 

NASA 

6121 

NASA 

6122 

NASA 

6123 

NASA 

6124 

c 

NASA 

6125 

NASA 

6126 

NASA 

6127 

NASA 

6128 

NASA 

6129 

NASA 

6130 

NASA 

6131 

NASA 

6132 

NASA 

6133 

NASA 

6134 

NASA 

6135 

NASA 

6136 

NASA 

6137 

NASA 

6138 

NASA 

6139 

NASA 

6140 

NASA 

6141 

NASA 

6142 

NASA 

6143 

NASA 

6144 

NASA 

6145 

NASA 

6146 

NASA 

6147 

NASA 

6148 

NASA 

6149 

NASA 

6150 

NASA 

6151 

NASA 

61S2 

NASA 

6153 

NASA 

6154' 

AP 

NASA 

6155 

AP 

NASA 

6156 

NASA 

6157 

NASA 

6158 

AP 

NASA 

6159 

NASA 

6160 

AP 

NASA 

6161 

NASA 

6162 

AP  • 

NASA 

6163 

OTHER 

NASA 

6164 

NASA 

6165 

170 
175 
160 
165 
190 
vD  195 

t 

I— • 

200 

205 

210 

215 

220 

225 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

130 


TB 

0 

NC 


BATTERY  TEMP  (DEGREES  KELVIN) 

DEPTH  OF  DISCHARGE  (BETWEEN  0 AND  100) 
TOTAL  MUM  OF  CELLS  (ALL  BATTERIES) 


PARAMETERS  NECESSARY  TC  COMPUTE  THE  CYCLES7HR  FACTOR 
NOW  FIXED  AT  4.0E-11,  REF  MODEL  5 

EMU=TRUNC 

£SIG=TRUNC/6. 

MAXEXP=20 

OC=.l 

T8=TBI*273, 


OTHER 

OTHER 

OTHER 

Sac 


*** 


FIXED  COhSTANTS 


LAHS=120. 
RHOl=0. 00001 
RH 02=0.1 
DELMU=2130. 
DELSIG=365. 


SENSE/SHITCH  FAILURE  RATE 
PAYOFF  THRESHOLD,  R(TRUNC) 
PAYOFF  THRESHOLD,  HMD 
EXPENDABLES  LIFE  INCR. 
EXPENDABLES  STD.  DEV.  INCR. 


SYS  PARAM  SPECIFICATION 


140 

C 


JHIN=N(2)  + 1 
JMAX=N(NSS) 

DO  130  1=1,6 
Z(I)=0ATAB(I,JKIN) 

N2=NCH0SE( JMIN) 

DO  140  J=JMINtJMAX 

NY=NCHOSE(  J4-1) 

NCHOS£(J+l)=NZ 
NZ=NY 

CO  140  1=1,6 

R(I)=DATAa(I,J  + l) 

DATAB(I,J+1)  = Z(I) 

Z(I)=R(I) 

CONTINUE 

INSERT 

0ATA8(1,JMIN)  = 3.  *( ACSWP+TNKWT )/TPRI« 


R-SHIFT  NCHOSE  AND  CCLUMNS  OF 
DATA8  BY  1 BEGINNING  WITH  THE 
THIRD  SUa-SVS 


INITIALIZE 


SHIFT  NCHOSE 


SHIFT  DATA8 


EXPENDABLES  PARAMETERS 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

110774 


6166 

6167 

6166 

6169 

6170 

6171 

6172 

6173 

6174 
€175 

6176 

6177 

6178 

6179 
6160 
6181 
6182 

6183 

6184 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

6196 

6197 
6193 

6199 

6200 
6201 
6202 

6203 

6204 

6205 

6206 

6207 

6208 

6209 

6210 
6211 
6212 

6213 

6214 

6215 

6216 

6217 

6218 

6219 

6220 
6221 

1 


-155 


230 
2 35 
2<»0 
2 45 
250 
2 55 
2 60 
2 65 
270 
2 75 
280 


OATAB(2,JHIN)=4. 
DATABC3,JMIN)=EMU 
DATAB(4,JHIN)=ESIG 
OATAB(5i  JHIN)=OELHU 
OATAe<6,JHIN)  =DEl.SIG 

NHX(JMIN)=MAXEXP 
SAVMX ( JMIN)=NMX(JMIN> 

DO  150  K=2,NSS 

N(K)=N(K)*1 

JMAX=JMAX+1 


00  160  J=1,JMAX 
M00L=INTC0ATAB(2, J)+.l> 

IF  (H00L.EQ.4)  GO  TO  160 

NHX( J)=OATA8(6,J)+.l 
KHX<JJ=NMX(J)-NCHOSE{ J) 
SAVHX(J}=NHX(J) 

GO  TO  (151,152,153,160,155),  HOOL 

OATAB(4,J)=LAMS*1.0E-09 
OATA8(3,J)=DATA8(3,J)ri.0e-09 
D AT  AB(6,<J}— OC 
60.  TO  160 

0ATA8(3,J)=0ATAB (3 , J ) *1 .OE-09 
DATA8  (4,  J)=DATAB(4,J)*1.0E-09 
GO  TO  160 

OATAB (6, J )=NC/NCHOSE ( J) 

TW0PI=6, 2631853 
OATA8<5,J)=NZ£RC*3600./THOPI 
DATA8(4,J)=  TB 
DATAB(3,J)-  0 
60  TO  160 

OATAB  C6,J)=0C 
DATAB(3,J)=DATA8(3,J)*FG 
OATA8{4,J)=LAHS*1.6E“09 
CONTINUE 

D£t.H=TRUNC/FLOAT(  ITRUNC-1) 
LIN=N(NSS) 

IF.,(I0eeU6  .EQ.  0)  GO  TO  165 
HRlTE(6,300fl) (NMX(J),J=i,LIM> 
MR1TE(6,3000) (NCHOSE( J) ,J=1,LIM) 
FORHAT(6(10I7,/)) 

WRITE (6,4000) ( (OATAB ( I, J) ,1=1,6) ,J 
fORHAT(6(lX,E16.e)) 

DO  180  J = i,LIM 
1A0D=Q 

CALL  RIMOO(J,OELH,ITRUNC ,ITRUNC,IA 


SET  MAX  NUM  OF  REDUNDANT  ELE. 
RESET  N(K) 

PARAMEtSs®  COMPUTE  MODEL 

CK  FOR  MODEL  TYPE  4 
MAX  NUM  OF  REDUNDANCIES 

MODEL  1 

MODEL  2 
MODEL  3 

MODEL  5 

TIME  STEP  INCR. 

CALCULATE  RELIABILITY  MATRIX 

1,LIM) 

0,0) 


NASA 

6223 

NASA 

6224 

NASA 

6225 

NASA 

6226 

NASA 

6227 

-NASA 

6228 

NASA 

6229 

NASA 

6230 

NASA 

6231 

NASA 

6232 

NASA 

6233 

NASA 

6234 

NASA 

6235 

NASA 

6236 

NASA 

6237 

NASA 

6238 

NASA 

6239 

NASA 

6240 

NASA 

6241 

NASA 

6242 

NASA 

6243 

NASA 

6244 

NASA 

6245 

NASA 

6246 

NASA 

6247 

NASA 

6248 

NASA 

6249 

NASA 

6250 

NASA 

6251 

NASA 

6252 

NASA 

6253 

NASA 

6254 

NASA 

6255 

NASA 

6256 

NASA 

6257 

NASA 

€258 

123074 

1 

123074 

. 2 

NASA 

6263 

NASA 

6264 

NASA 

6265 

NASA 

6266 

NASA 

6267 

NASA 

6268 

NASA 

6269. 

NASA 

6270 

NASA 

6271 

NASA 

6272 

012775 

29 

NASA 

6273 

NASA 

62-74 

NASA 

6275 

NASA 

6276 

NASA 

6277 

012775 

30 

NASA 

6279 

NASA 

6280 

285 

290 

295 

170 

180 

C 

190 

C 

195 

196 
C 

c 

00  170  I=l,nRUNC 
RI(I,J>  = R(1) 

IFdOEBUG.EQ.l)  PRINT  4000  , (R<I)  ♦!=!  tITRUNC) 

CONTINUE 

SET  EXPENSE  OPTION 

IF  (KEOPT.NE.l)  GO  TO  195 
CO  190  J=1»LIH 
COST(J)=DATAB(l,J) 

GO  TO  200 

COMPUTE  COST 

DO  196  J=1.LIM 

COST(J)=COSTM<l,J)+COSTM<2*J»+COSTH{3fJ) 

NASA 

NASA 

012775 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

6281 
6262 
31 
6284 
6265 
62  86 

6287 

6288 

6289 

6290 

6291 

6292 

6293 

6294 

C 

NASA 

6295 

C 

***  MAIN  PROGRAM 

NASA  . 

6296 

C 

NASA 

6297 

300 

c 

NASA 

62*=6 

c 

NASA 

6299 

c 

RCTRUNC)  MODE 

NASA 

€300 

200 

LIM=NSS+1 

NASA 

6301 

C 

R<TRUC)  MODE  FOR  EACH  SUB-SYS 

NASA 

6302 

305 

C 

WITH  A USER  SPEC. 

NASA 

6303 

C 

FOR  K=LIM  SUB-SYS  IS  TOTAL  SYS 

NASA 

6304 

SAVNSR=0 

NASA 

6305 

JHAX=0 

NASA 

6306 

CO  270  K=1*LIM 

NASA 

6307 

310 

c 

CK  FOR  ANY  SUB-SYS  USER  SPEC. 

NASA 

6308 

c 

ISUB=2  NO  SUB-SYS  SPECS. 

NASA 

6309 

c 

ISU8=1  AT  LEAST  ONE 

NASA 

6310 

c 

SUB-SYS  SPEC. 

NASA 

6311 

IF  (ISUB  .NE.  1 .AND.  K «NE.  LlMl  GO  TO  270 

NASA 

6312 

315 

c 

SET  NUH  OF  SUB-SYSTEM  RED  TO  Q 

NASA 

6313 

►SR=fl 

NASA 

6314 

c 

SELECT  JMIN  AND  JMAX 

NASA 

6315 

IF  tK.NE.LIM)  GO  TO  210 

NASA 

6316 

JMIN=1  1 

NASA 

6317 

320 

JHAX=N(NSS)  1 

NASA 

6318 

^SR=SAVNSR 

NASA 

6319 

GO  TO  220 

NASA 

6320 

210  • 

JHIN=JMAX+1 

NASA 

6321 

UHAX=N(K) 

NASA 

6322 

325 

C 

CALCULATE  MAX  NUM  SYS  RED. 

NASA 

6323 

220 

K'SMX=0 

NASA 

6324 

00  230  L-JHIN.JHAX 

NASA 

6325 

230 

NSMX=NSHX+SAVHX(L) 

NASA 

6326 

C 

CK  FOR  SUB-SYS  USER  SPEC 

NASA 

6327 

330 

IF  {SPECCKKLE.RHOll  GO  TO  269 

NASA 

6328 

C 

NASA 

6329 

C 

SET  PARAMETERS  FOR  RECAP  ENTRY 

NASA 

6330 

RH0TH=RH01 

NASA 

6331 

NT=1 

NASA 

6332 

335 

IRTN=1 

NASA 

6333 

c 

CALCULATE  INITIAL  SUB-SYS 

NASA 

6334 

c 

RELIABILITY 

NASA 

6335 

250 

ROLO  ( ITRUNC)  =RFIXED*RFNJ- 

NASA 

6336 

CO  240  J=JMINtJMAX 

NASA 

6337 

3 40 
345 
350 
355 
3 60 
3 65 

vO 

I 

I— ■ 

U1 

370 
375 
3 60 
3 85 
390 
395 


240 

C 

C 

C 


c 

c 


245 


255 


ROLQ  (ITfi;UNC)=ROLD(ITRUNC)»fiI{ITRUNC,J) 

CK  RELIABILITY  AGAINST  SPEC. 
ENTER  REOAP 

OLORHO=-1.0 

RO(ITRUNC) =1.- (l.-R0L0<ITfiUNC>)»»2 
IF  (lOS.EQ.O)  GO  TO  245 
IF  CRDIITRUNC) .LT,SPEC(K>)  GO  TO  390 
GO  TO  255 

IF  {ROLD (ITRUNC) ♦ LT.SPEC(K) > GO  TO  390 


260 

269 

270 
C 

C 

c 

c 

c 

c 

c 

c 

c 


280 

c 


c 

c 

c 

c 

c 

c 

c 

c 


285 

290 

C 

c 

c 

300 


IF  (K.EQ.LIM)  GO  TO 
DO  260  J=JMIN,JMAX 
NMX(J)=NR(J) 
SAVNSR=SAVNSR+NSR 
CONTINUE 


269 


DO  280  J=1,JMAX 
NMXtJ>=SAVMXCJ) 


200  ENTRY  TO  MHO  DETERMINATION 


IF  (ISFT.EQ.O)  GO  TO  300 


DO  290  J=1,JMAX 

IF  <tNMX(J).LE,0> .OR. (NR(J).GT. 
M00L=0ATA8{2,J)4-.1 

IF(MOOL.EQ.5)  L=NCHOSEU) 

NSR=NSR+L 

KR(J) =NR(J)4L 

IAW}=0 

CALL  RIMODCJ,OELH,ITRUNC,ITRUNC 
DO  285  I=1,ITRUNC 
RKI,  J)=R(I) 

CONTINUE 


UPDATE  NMX  FOR  K ,LT.  LIM 


LIST  OF  EXIT  PARAM  AND  VALUES 
EXIT  R(TRUNC)  MODE 
JMIN=1 
JMAX=N(NSSJ 
NSR=  NUM  SYS  RED 
NSMX=  MAX  NUM  SYS  RED 
NOW  ENTER  M.MO  DETERMINATION 
RESET  NMX  TO  TRUE  LIMITS 


CK  FOR  SINGLE  POINT  FAILURE 
REQUIREMENT 

ISPT-O  NO  REQ. 

=1  REQ. 

SINGLE  POINT  FAILURE  REQ.  IN 


0)J  GO  TO  290 


iIAOOrC} 


RH0TH=RH02 

NT=ITRUNC 

IRTN=2 


INITIALIZATION  OF  PARAMETERS 
BEFORE  ENTRY  TO  THE  REDUNDANCY 
ALLOCATION  PROCEDURE 


COMPUTE  INITIAL  RELIA6ILITY 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


6338 

6339 

6340 

6341 

6342 

6343 
€344 

6345 

6346 

6347 

6348 

6349 

6350 

6351 

6352 

6353 

6354 

6355 
€356 

6357 

6358 

6359 

6360 

6361 

6362 

6363 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 
€374 

6375 

6376 

6377 

6378 

6379 

6380 
6381. 
6382? 
6363 

6384 

6385 

6386 

6387 

6388 

6389 
63.90 

6391 

6392 
€393 
6394 


400 

4C5 

410 

4i5 

420 

vO 

^ 425 

03 

430 

435 

440 

445 

450 


C 

C 

330 


305 

310 

320 

C 


FNC  FOR  SINGLE  AND  DOUBLE 
^ STRING  SYSTEMS 

CO  320  I=1»ITRUNC 
ROLO(I)  = RI(I,l) 

IF  (RFNL  .G£.  C.999)  GO  TO  305 

ROLO(I)=ROLOa>*EXP(-{  (OELH*FLOAT(I-i>)/AtPHA)  **1,6) 

DO  310  J=2»JMA> 

ROLOCI)=ROLDlI)*RI(I,J> 

RDCI»=l.-(l,-ROLO(I) ) **2 
CONTINUE 

, , . COMPUTE  INITIAL  HMD  VALUE 

CAU  QSF  (OELH.ROLO.Z.ITRUNC)  , 

HMDOLD=RFIXED*Z  C ITRUNC ) 


C 

C 

C 

C 


350 

351 

C 


352 

353 


C 

360 

370 


3d0 

C 


1000 

1100 


381 

385 


CALL  QSF  <DELH,RD.Z*ITRUNC) 
DSMMO=RFIXED*ZCITRUNC) 


OLORHO=-l.  0 

IF(IOS.EQ.O)  GO  TO  350 
IFCOSMMD.LT.SPECl)  GO  TO  390 
GO  TO  351 

IF  IMMOOLD.LT.SPECl)  GO  TO  390 
IRTN=0 

JMAX=0 

DO  353  K=1»NSS 

JMIN=JMAX+1 

JMAX=N<K) 

SSREL(K)  = 1,0 

CO  352  JsJHIN.JHAX 

SSREL (K) =SSREL (K) *RI( ITRUNC,  J) 

CONTINUE 

SSREL  <6)  = RFNL 

JMIN=NC2)-1 
DO  370  J=1,JMIN 
NCHOSE(J)=NCHOS£(J)+NR(J» 
JMIN=N(2) 

JMAX-N(NSS) 

CO  380  J=JHIN,JHAX 

NCHOSE (J )=NCHOSE  < J+l) +NR (J+1 ) 

TPRIM=TPRIH+FLCAT(3*NRCJKIN)) 

PRINT  100fl,TFRIH 

FORMAT  (1X,6HTPRIH=,E11,4) 

PRINT  1100,0 

FORMATIlX,2HD=,£ll,4) . 

ITRUNP=ITRUNC 

IF  (IDS  ,EQ,  0)  GO  TO  385 

MMOOLD=DSMMO 

ROLO(ITRUNC)=RD(ITRUNC) 

DO  381  Jsl,JHAX 
NCHOSE(J)  = NCHOSE(J)  * 2 
RETURN 


CK  MHDOLO  AGAINST  USER  SPECl 
GO  TO  REDAP 

ALSO  RETURN  POINT  FOR  REOAP 


COMPUTE  SUBSYS  RELIABILITIES 


MISSION  EQUIPMENT  RELIABILITY 
COMPRESS  NCHOSE  AND  ADO  RED, 


EXPENDABLES  INFO  RETURN 


NASA 

6395 

NASA 

6396' 

NASA 

6397 

NASA 

6398 

NASA 

6399 

NASA 

6400 

NASA 

6401 

NASA 

6402 

NASA 

6403 

NASA 

•'6404 

NASA 

6435 

NASA 

6406 

NASA 

6407 

NASA 

6406 

NASA 

6409 

NASA 

6410 

NASA 

6411 

NASA 

6412 

NASA 

6413 
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19 
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amODUGIBitLig^  OF  THJJ 
-ORIGINAL  l>AGE  IS  POOR 


4S5 
460 
465 
470 
475 
^ 480 

I 

»— * 

Ui 

nD 

485 
490 
495 
500 
505 
510 


C 

C 

C 

C 

C 

C 

c 

c 

c 

390 

C 

C 

C 

c 


c 

c 


400 

C 

C 


C 

410 


C 

C 

420 

C 

C 

C 


422 


430 

440 

C 

C 


♦♦♦  MAIN  REDUNDANCY  ALLOCATION  PROCEDURE 

<REDAP) 


IF  MAX  NUM  RED  EXCEEDED,  RETRN 
OTHERWISE  CONTINUE  PROCEDURE 

IF  < NSR. GE.NSHX)  GO  TO  (490,510),  IRTN 

SELECT  MODULE  TO  ADO  A RED,  IF 
J.GEiJMAX  GO  TO  SYS  UPDATE 
„ PROCEDURE. 

CO  440  J=JMIN, JMAX.l 

IF  <NR(J).GE.NMX( jn  60  TO  440 

H00L=0ATAB(2,J)+.l 

IF  ((MOOL.EQ.3).ANO.(NR<J41I.GE.NMX(J4-1)))  GO  TO  440 

ADO  A RED  TO  MODULE  AND 


IAOD=l 

CALL  RIHOD(J,DELH,ITRUNC,NT,IAOO,1) 

DO  400  IND=1,NT  ' 

IsITRUKC+l-IND 

RNEW<  I)=R0LD(Z)<^R(1)/R1(I,J) 
CONTINUE 


IF  INT.NE.l)  GO  TO  410 
I=nRUKC 

RH0=(A8S(RNEW(  D-ROLDCI)  n/COSTtJ) 
GO  TO  420 

CALL  QSF  (DELH  .RNEW.Z.ITRUKC) 
MMaNEH=Z(ITRUNC)*RFIX£0 
RH0=(A8S (MMDNEh-MMOOLOl) /COST (J) 

IF  (RHO.LT.OLORHO)  GO  TO  440 


COMPUTE  THE  RELIABILITY  FNC 
CALCULATE  NEW  SYS  RELIABILITY 


CK  FOR  R(TRUNC)  OR  HMD 
COMPUTATIONAL  MODE 


R<ITRUNC)  MODE 


HMD  MODE 


USAVE=J 
OLORHO=RHO 

FRINT  422, JSAVE,OLDRHQ,RKEW(ITRUNC) 

FORMAT  <lX,I5,lX,2(E11.4,iXn 
DO  430  IN0=1,NT 
I=ITRUNC+1-IND 
SAVR(I)=R{I) 

CONTINUE 

IF  (NT.NE.l)  SAWMM0=MMDNEH 
CONTINUE 

IF  (OLDRHO.LT.RHOTH)  GO  TO  (530,54  0,  IRTN 


SELECTION,  DECISION  SEQUENCE 


RHOaLT.OLORHO  SAVE  CURRENT 
RELIABILITY  DATA,  MODULE  NUM, 
AND  VALUE  OF  RHO. 


END  f5EOAP 
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NASA 
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451 
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**»  SYSTEM  RELIABILITY  UPDATE  PROCEDURE 

(SYRUP) 

M00L  = 0ATAB(2,JSAVE)+.l 

IF^CHOOL.EO.5)  L=NCHOS£ ( JSAVE) 

NSR=NSR+L 

NR  (JSAVE)  =NR  (JSAVE)  *L 

SYSLB=SYSILB+OATAB  (If  JSAVE)  / (TPRIH+FLOAT  ( 3*NR  (JSAVE  )) ) 

GO  TO  450 

SYSLB=SYSLB+DATA8(1,JSAVE)*FL0AT(L) 

IF  (MOOL.NE.3)  GO  TO  450 

XNR  = FLOAT(NR(JSAVE) +NCHOSE(JSAVE>) 

0 = 0’^  (XNR-1.)/XNR 
0ATAB(3,JSAVE)  = D 
^SR=NSR+l 

NR(JSAVE+l)=NR(JSAVe+l)+l 

SYSL8=SYSLB+DATAB{1»JSAVE*1) 

I A 00=0 

CALL  «IMOO(JSAVE+l,OELHfITRUNCfITRUNCf lAOOfO) 

CO  452  I=1,ITRUNC 
fid,  JSAV£+1)=R(I) 

IF  (NT  .NE.  1)  GO  TO  455 
IADO=0 

CALL  RIMOO<JSAVE,D£LH,ITRUNC,ITRUNCf lAODfO) 

DO  451  I=1,ITRUNC 
SAVR(I)=R(I) 

CO  460  I=1,ITRUNC 
RKI,  JSAVE)=SAVR(I) 

CONTINUE  WEIGHT  EXCEEDED. 

IF  (SYSLB  .GE.  SL0MX)  GO  TO  (500,520),  IRTN 

BRANCH  To  START  ANOTHER  PASS 
THRU  REOAP(  ^ . 

MODE  NT  STMT  NUM 

R(ITRUNC)  1 250 

MHO  ITRUNC  330 


IF  (NT.NE.l)  GO  TO  330 
GO  TO  250 


END  SYRUP 


PROGRAM  RETURNS 


1RTN=-1 
60  TO  360 
IRTN=-2 
60  TO  360 
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NASA 

NASA 
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NASA 

NASA 

NASA 


570 


5 75 


,510 

IRTN=-3 

GO  TO  360 

520 

IRTN=-4 

530 

GO  TO  360 
IRTN=-5 

540 

GO  TO  360 
IRTN=-6 

C 

GO  TO  360 
END 

SUMMARY  OF  CHANGES  MADE  BY  THE  OPTIMIZER 

H RLIST  REMOVED  FROM  THE  LOOP  BEGINNING  AT  LINE  477 

13  WORDS  OF  INVARIAM  RLIST  REMOVED  FROM  THE  LCOP  BEGINNING  AT  LINE  5C2 
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SUBROUTINE  RIMOO 


76/76  0PT=2 


FTN  4.2+383 


03/27/75  21.  39.03 


SUBROUTINE  R1MC0( J.OELH, ITRUNC, NT, lA OD, lOPT) 

COMHON  /OBCON/  R( 3i> , NR ( 60 » ,RI ( 31, 60 1 , W ( 31 ) , RO ( 31 ) , RDUM ( 31) , 
I SAVR  |l>.SAv5RW(3lKRNlH(31);NHX<60f.SAW 

vUdI  (oQlfVJ  UK  C 3213) 


COMMON  /CHOSE/ 


COSTM(5»60),  OPIAIll.eO), 
NCHOSE(60»,  SYSPAR  ( 6,60), 
THM(4,60) 


ACCRCY, 

AM, 

AN, 

BF 

CDPI(7,2); 

DRIHT, 

CISTAF, 

ctot; 

DOTE 

EQBSTR, 

FEEINV, 

FEEOPS 

GSE, 

IREL, 

itrunp, 

MMOOLO 

OPS, 

PAYINV, 

PAVQUL, 

PAYR 

PMP, 

PMR, 

POWERCei , 

PU 

QG  Pf 

OCR, 

ROLO(60), 

SABMHT 

SATINV, 

SATR, 

SEIP, 

SEIR 

SSREL(6), 

SUBE(7), 

SUBT(7), 

SUBU£(7). 

TA, 

TAU(6,6), 

XOUHl, 

TC 

IE' 

TOOLR, 

TOOLU, 

TOTOPS 

1 ^ t 

TIT, 

V0LUME(6) , 

VGlLCeO) 

XLTOT, 

XMEW, 

RyLAHS 

XMEH, 

XMEHT, 

XMEINV, 

XVEST 

XMEL 

ICHCS.E(60), 

SKO(7^60), 


uc, 

PEER, 

NAME(3,60) , 
PE> 
PHR(60) , 
SATAOP, 
SKTAUC6), 
SUBUP(7) , 
TE, 
TRUNC, 
HEI6HT{6) , 
XMEVL, 


SUBROUTINE  RIHOD 
PURPOSE 

TO  COMPUTE  THE  RELIABILITY  FUNCTION  FOR  MODULE  J AFTER 
REDUNDANCIES  ARE  ADDED  TO  THE  MODULE. 

USAGE 

CALL  RIM  CO (R, NR, J,DELH, ITRUNC, NT, I ADO, 10 FT) 

DESCRIPTION  OF  PARAMETERS 
J -INPUT  MODULE  NUM 

OELH  -DELTA  TIME,  THE  TIME  INCREMENT 

ITRUNC  -THE  NUM  OF  TIME  POINTS 

NT  -INPUT  OPTION  PARAMETER 

lAOO  -INPUT  OPTION  PARAMETER 

.lOPT  -INPUT  OPTION  PARAMETER 

REMARKS 

OPTION  PARAMETER  VALUE  ACTION 

NT  1 ONLY  COMPUTE  RELIABILITY  A1 


lADO 


VALUE  ACTION 

1 ONLY  COMPUTE  RELIABILITY  AT 

TRUNCATION  TIME.  RETURN  VALUE  IN 
R ( ITRUNC ) 

ITRUNC  COMPUTE  RELIABILITY  AT  EACH  TIME 
RETURN  VALUES  IN  R. 

0 AOD  NO  REDUNDANCIES  BEFORE  COM- 
PUTING THE  RELIABILITY  FUNCTION. 

1 AOD  REDUNDANCIES  BEFORE  COMPUT- 


NASA 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

0 22575 

0 22575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA  . 
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NASA 

NASA 

NASA 
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NASA 


55 


60 


65 


70 


I 


O' 

w 


100 


105 


110 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


lOFT 


C 

10 


OTHER 


ING  THE  RELIABILITY  FUNCTION. 
UNCOUPLE  MODELS  1 AND  3. 

COUPLE  MODELS  1 ANO  3. 


GLOBAL  VARIABLES  PASSED  TH0L6H  COMMON 

R -THE  resulting  RELIABILITY  FUNCTION 

NR  -INPUT  VECTOR  OF  THE  NUM  OF  REDUNDANCIES  BY  MODULE 
NCHOS  -INITIAL  NUM  OF  ELEMENTS  IN  MODULES 
SYSPAR  -MATRIX  OF  MODEL  PARAMETERS 

SYSPAR(2,J»=  MODEL  ID  FOR  J-TH  MODULE 

FOR  FURTHER  DESCRIPTION  SEE  COMMENTS  PRECEEDING  THE 

PARTICULAR  MODEL  OF  INTEREST. 


SUBROUTINES  ANO  SUBPROGRAMS  REQUIRED 
FORTRAN  SYS  FNCS*  EXP,  FLOAT,  INT 


rnuo*  c^r,  ri.uHi,  j.mi,  SORT 
EXTERNAL  FNCSS  GAM=GAMMA  FNC,  CERF=£RROR  FNC 
SUBROUTINES t NONE 


75 

C 

c 

. R00T2=SQRT (2.0) 
MQD=INT(SYSPAR(2 
GO  TO  (10,90,120 

,J)4^.1) 

,160,10) 

, MOD 

60 

c 

MODELS  1 AND  5 

U 

c 

p 

VARIABLES 

SIZE 

ORIGIN 

oefn 

c 

LAMS 

1 

INT 

SENSE/SHITCH  FAILURE  RATE 

85 

c 

LAM 

1 

INT 

FAILURE  RATE 

c 

Q 

1 

INT 

DORMANCY  FACTOR 

c 

DC 

1 

INT 

MODULE  DUTY  CYCLE 

c 

MI 

1 

INT 

NUM  OF  STANDBY  ELEMENTS 

c 

NI 

1 

INT 

NUM  OF  ACTIVE  ELEMENTS 

90 

c 

SYSPAR 

I,J 

GLOBAL 

MODEL ■ PARAMETERS  FCR  J-TH 

c 

MODULE 

c 

1=3  VALUE  OF  LAM 

c 

1=4  VALUE  OF  LAMS 

c 

1=5  VALUE  OF  Q 

95 

c 

c 

c 

1=6  VALUE  OF  DC 

C 

c 


LAM=SYSPAR(3.J) 

lams=sysparc4,J) 

Q=SYSPAR(5,J> 

0C=SYSPAR(6,J) 

NREQ=:NCHOSE(J) 

NRED=NRCJ) • 

IF  (MOO  .EQ.  1>  GO  TO  15 
NR£Q=1 

NREO=NRED/NCHOSE( J) 
LAM=LAM*FLOAT(NCHOSE(  J)) 


CK  MODEL  TYPE 


CK  INCR  MODE 


IQ=1  ACTIVE 
OTHERWISE  STOBY 
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6660 

115 

120 

125 

130 

135 

1^0 

1<<5 

150 

155 

160 

165 


15  IQ=INT(Q+.l) 

NASA 

6661 

IF  (IQ.NE.l)  GO  TO  20 

NASA 

6662 

c 

INCR  IN  ACTIVE  MODE 

NASA 

6663 

ni=nreq+nred+iado 

NASA 

6664 

► 1=0 

NASA 

6665 

GO  TO  30 

NASA 

6666 

c 

INCRIN  STANDBY  MODE 

NASA 

6667 

20 

KI=NR£Q 

NASA 

666a 

MI=NR£0+IA0D 

NASA 

6669 

C 

CALCULATION  OF  MODEL  CONSTANTS 

NASA 

6670 

30 

IF  (MI.NE.O)  Q=Q+LAMS/LAM 

NASA 

6671 

CBAR=Q/(DC+(l.-OC)*Q> , 

NASA 

6672 

LAMBAR=LAM*(DC+(l.-OC)*Q> 

NASA 

6673 

C 

NASA 

6674 

c 

COMPUTATION  OF 

RELIABILITIES 

NASA 

6675 

c 

NASA 

6676 

c 

INITIALIZATIONS 

NASA 

6677 

LIM=NREQ 

NASA 

6678 

LIM2=LIM-1 

NASA 

6679 

CO  ao  INO=i»NT 

NASA 

6660 

c 

DO  FOR  EACH  TIME  POINT.  IN 
DESCENDING  ORDER,  NT  TO  i 

NASA 

6661 

c 

NASA 

66  82 

I=ITRUNC+l-INO 

NASA 

6683 

TIME=DELH*FL0AT (I-l) 

NASA 

66  84 

c 

SUM0=1.0 

SUMO  ACCUMULATES  RELIABILITY 

NASA 

6685 

NASA 

6686 

c 

EXPONENTIAL  CONSTANT 

NASA 

6687 

c 

NASA 

66  86 

EC1=£XP(-LAM8AR»TIME*FL0AT(ND) 

NASA 

6689 

c 

NASA 

6690 

c 

CALCULATE  PROBABILITIES,  IN 

NASA 

6691 

c 

CO  70  IND2=l,tIM 

DESCENDING  ORDER,  LIM-1  TO  0. 

NASA 

6692 

■ 

NASA 

6693 

K=LIM-IND2  ■ 

NASA 

6694 

SUM2=0.0 

NASA 

6695 

SUH1  = 0.0 

NASA 

6696 

c 

COMPUTE  FIRST  SUMMATION 

NASA 

6697 

KLIM=K+1 

NASA 

6698 

NILIM=NI+1 

NASA 

6699 

CO  40  INDO=KLIM,NILIM 

NASA 

6700 

IND3=INDD-1 

NASA 

6701 

ARG1=1.+FLOAT(IN03-K» 

NASA 

• 6702 

ARG2= FLOAT (NI-INC3) 

NASA 

6703 

ARG3=1.+ARG2/Q0AR 

NASA 

6704 

8K=GAH(ARG1)«6AH(ARG241.  )*GAM(ARG3->-FLOAT(Min/GAM  (ARG3) 

NASA 

6705 

IF  {(lN03-2*(IN03/2)> .EQ.l)  EK=- 

BK 

NASA 

6706 

Z=EXP (-LAMBAR»TIME*FLOAT (IN03) ) 

NASA 

6707 

40 

SUM1=SUM1+Z/8K 

NASA 

6708 

c 

COMPUTE  SECOND  SUMMATION 

NASA 

6709 

IF  IMI.EQ.D)-  GO  TO  60 

NASA 

6710 

DO  50  IND3=1,MI 

NASA 

6711 

ARGl=FLOAT (IN03> 

NASA 

6712 

AR62=l.+FL0AT(MIrIND3) 

. 

NASA 

6713 

ARG3=1.+ARG1»QBAR 

NASA 

6714 

CJ=GAMCARGl+i.)*GAM(ARG2)*GAHf ARG3+FL0AT(NI-K))/GAM(ARG3) 

NASA 

6715 

ICK=NI+IND3 

NASA 

6716 

IF  ({ICK-2*(ICK/2)).EQ.D  CJ=-CJ 

NASA 

6717 

Z=EXP (-Q*LAM*TIME*ARG1> 

NASA 

6718 

170 

50 

SUM2=SUM2+Z/CJ 

NASA 

6719 

C 

NASA 

6720 

C 

CALCULATIOK  OF  PROBABILITY 

NASA 

6721 

C 

PR(K»=A(K>*SUMS 

NASA 

6722 

C 

NASA 

6723 

175 

60 

SUM2=SUM1+EC1*SUM2  . 

NASA 

6724 

flRGt=FLOAT(NI) 

NASA 

6725 

ARG2=t.+FL0AT(K) 

NASA 

6726 

ARG3=l.+ARGl/QBAft 

NASA  . 

6727 

AK=GAM(ARG1+1.)^GAM(ARG3+FL0AT(MI)  )/ (GAM  (ARC 2)  »GAM(ARG3n 

NASA 

6728 

leo 

IF  ((K-2*(K/2)>.£Q.1»  AK 

=-AK 

NASA 

6729 

C 

NASA 

6730 

C 

ACCUMULATE  RELIABILITY 

NASA 

€731 

c 

NASA 

6732 

SUH0=SUM0-AK*SUM2 

NASA 

6733 

165 

70 

CONTINUE 

NASA 

6734 

c 

NASA 

€735 

c 

CK  COUPLING  OPTION 

NASA 

6736 

G 

ASSIGN  RELIABILITY  AND  INCR 

NASA 

6737 

C 

TIME 

NASA 

6738 

190 

IF  («00.EQ.3>  SUMO^SUMO* 

R(I) 

NASA 

6739 

80 

R(I)=SUMO 

NASA 

6740 

C 

CK  COUPLING  OPTION 

NASA 

6741 

IF  (M00,£0.3>  J=J-1 

NASA 

6742 

RETURN 

NASA 

6743 

195 

C 

NASA 

6744 

c 

• NASA 

C 

NASA 

€746 

C 

HO DEL  2 

NASA 

6747 

c 

VARIABLES  SIZE 

ORIGIN 

OEFN 

NASA 

6748 

200 

c 

NASA 

6749 

G 

FMU  SC 

LOCAL 

MEAN  UNIT  LIFE 

NASA 

6750 

C 

FSIG  SC 

LOCAL 

STD.  DEV. 

NASA 

6751 

c 

SYSPAR  1,J 

GLOBAL 

MODEL  PARAMETERS  FOR  J-TH 

NASA 

6752 

c 

MODULE 

NASA 

€753 

205 

c 

1=3  VALUE  OF  FMU 

NASA 

€754 

c 

1=4  VALUE  OF  FSIG 

NASA 

€755 

c 

NI  SC 

LOCAL 

TOTAL  NUM  OF  ELEMENTS 

NASA 

€756 

c 

NASA 

6757 

c 

» NASA 

£75  A 

210 

c 

NASA 

6759 

90 

FMU=SYSPAR(3,J) 

NASA 

6760 

FSIG=SYSPAR(4,J) 

NASA 

6761 

C 

INCR  REOUND. 

NASA 

6762 

LIM=NR(J)+IADD 

NASA 

6763 

215 

NI=LIM+NCH0SE( J) 

NASA 

6764 

LIM2=LIM-1 

NASA 

6765 

c 

COMPUTE  NEH  RELIABILITIES 

NASA 

6766 

c 

NASA 

6 767 

DO  lia  1=1, NT 

NASA 

6768 

220 

K=ITRUhC+l-I 

NASA 

6769 

Z=((D£LH’^(K-ll)-FMU»/(ROOT2»FSIGI 

NASA 

6770 

AN=C£RF(ABS(Z)> 

NASA 

6771 

IF  (A8S(Z) .GT.4.0)  AN=1. 

-AN 

NASA 

6772 

AN=0.5*(1.-AN) 

NASA 

6773 

2 25 

IF  (Z.LT.0.0)  AN=1.-AN 

NASA 

€774 

230 
235 
2<»0 
ZU5 
250 
255 
260 
2 65 
270 
275 
280 


c 

NASA 

6775 

c • 

COHPUTATIOK  OF  CUMULATIVE 

NASA 

6776 

c 

BINOMIAL  PROBABILITIES 

NASA 

6777 

c 

NASA 

6778 

2= AN 

NASA 

6779 

«N=AN**NI 

NASA 

6780 

SUM=AN 

NASA 

6781 

IF  (LIM.EQ.O)  GO  TO  110 

NASA 

6782 

Z=(l.-Z)/Z 

NASA 

6783 

LLLIM=LIM2+1 

NASA 

6784 

CO  too  LLL=1,LLLIM 

NASA 

6785 

L=LLL-1 

NASA 

6786 

AN=AN*  (FLOAT  (NT-U/FLOAT(L+in*Z 

NASA 

6787 

100 

SUM=SUM*AN 

NASA 

6788 

110 

R(K)=SUM 

NASA 

6789 

RETURN 

NASA 

6790 

c 

NASA 

6791 

c 

..  NASA 

6792 

c 

NASA 

6793 

c 

MODEL  3 { 

NASA 

6794 

c 

VARIABLES  SIZE  ORIGIN  OEFN 

NASA 

6795 

c 

NASA 

6796 

c 

D SC  LOCAL,  DEPTH  OF  DISCHARGE 

123074 

8 

c 

TB  SC  LOCAL  BATTERY  TEMPERATURE 

123074 

9 

c 

AS  SC  LOCAL  BATTERY  CELL  CONSTANT 

NASA 

6797 

c 

8B  SC  LOCAL  BATTERY  CELL  CONSTANT 

NASA 

6796 

c 

BCYC  SC  LOCAL  CYCLE  RATE  OF  BATTERY 

NASA 

6769 

c 

NI  SC  LOCAL  TOTAL  NUM  OF  BATTERIES 

NASA 

6800 

c 

NC  SC  . LOCAL  NUH  OF  CELLS  IN  BATTERY 

NASA 

6801 

c 

SYSPAR  I,J  GLOBAL  MODEL  PARAMETERS  FOR  U-TH 

NASA 

6802 

c 

MODULE 

NASA 

660.3 

c 

1=3  VALUE  OF  D 

123074 

10 

c 

1=4  VALUE  OF  TB 

123074 

11 

C' 

1=5  VALUE  OF  BCYC 

NASA 

6806 

c 

1=6  VALUE  OF  NC 

NASA 

6807 

c 

NASA 

6808 

c 

..  NASA 

6609 

c 

NASA 

. 6810 

120 

BCYC  = SYSPAR (5, J) 

;123074 

12 

NC=SYSPAR(6,J>+.i 

NASA 

6814 

c 

INCR  REQUNO. 

NASA 

6815 

LIH=NR(J)4-IAOO 

NASA 

6816 

NI=LIM+NCHOSECJ) 

NASA 

6817 

LIM2=LIM-1 

NASA 

6618 

0 = SYSPAR(3,J)  * FLCAT(NI-IADO)  / FLOAT(NI» 

123074 

13 

TB  = SYSPAR(4,J) 

022675 

8 

LIM3=NC/2 

NASA 

6819 

NC=NC+LIM3 

NASA 

6820 

A8=€XP (-11. 380 958  + . 23 896921*TB-. 54986583*0-. 00  05 0646174*TB*TB 

123074 

14 

1 +.019307737*0*0-. 0002374105*0**3) 

123074 

15 

BB=EXP (-138. 10332+. 959270 99*TB-, 18704227*0-. 00 167177 86*TB*TB 

123074 

16 

1'  -.0019619976*0*0+. 0011242688*TB*D) 

123074 

17 

c 

COMPUTE  NEW  RELIABILITIES 

NASA 

6821 

c 

NASA 

6822 

DO  140  1=1, NT 

NASA 

6823 

K=nRUMC+l-I 

NASA 

6824 

Z=(OELH*(K-l  >-876  60.  )7  (1 7532 . *ROOT 2) 

111274 

13 

2 65 
2 90 
2 95 
300 
305 
310 
315 
320 
325 
330 
335 


/5N=CERF(ABS(Z)  ) 

IF  (ABSCZ)  .GT.‘+.C>  AN=1.-AN 
AN=0 .5’'tl.-AN) 

IF  (Z.LT.0.0)  AN=1,-AN 
2=cXP{-(  (8CYC*(0£LH*  (K-1 ) ) » /AS)  ♦*68) 
U.LIM=LIM3 
. AA=Z**NC 
SUM=AA  , . 

Z=(l.-Z)  VZ 

00  125  LLL=1,LLLIM 

L=LLL-1 

AA=AA* (FLOAT (NC-L) /FLOAT (L+1))»Z 
125  SUH=SUM+AA 
Z=SU.i*AN 
C 
C 
' C 

AN=Z**NI 

SUH=AN 

IF  (LIH.EQ.O)  GO  TO  140 

Z=(l.-Z)/Z 

LLLIM=LIM2+1 

DO  130  LLL=1»LLL1H 

L=LLL-1 

/N=AN*  (FLOAT (NI-L) /FLO AT  (L+1H*Z 
130  SUM=SUM+AN 
140  R(KI=SUM 
C 

IF  (lOFT.'EQ.  0)  GO  TO  150 
J=J+1 


COMPUTATION  OF  CUMULATIVE 
BINOMIAL  PROBABILITIES 


CK  COUPLING  OPTION 


150 

C 

C 

C 

C. 

C 

C 

C 

c 

C 

C 

c 

c 

C 

C 

c 

C 

c 

C 

c 

160 


C 

C 

C 


GO  TO  10 
RETURN 


MODEL  4 


VARIABLES 

SIZE 

ORIGIN 

• OEFN 

FMU 

FSIG 

SYSPAR 

SC 

SC 

ItJ 

LOCAL 

LOCAL 

GLOBAL 

MEAN  EXPENABLE  DEPLETION  TIME 
STD,  OEV.  OF  DEPLETION  TIME 
MODEL  PARAMETERS  FOR  J-TH 
MODULE 

1=3  INITIAL  VALUE  OF  MU 

1=4  INITIAL  VALUE  OF  SIG 

1=5  INCR,  VALUE  OF  MU 

1=6  INCR,  VALUE  OF  SIG 

INCR 

REDl'ND, 

Z=FLOAT(NR(J>+IADD) 

FMU=SYSPAR(3,  J)+Z*SYSPAR(5,  J». 

FSI6=SQRT( (SYSPAR(4, J)»»2)+Z*(SYSPAR(6, J)*»2)) 

COMPUTE  NEW  RELIABILITIES 


NASA 

6826 

NASA 

6827 

NASA 

6828 

NASA 

6829 

NASA 

6830 

NASA 

6831 

NASA 

6832 

NASA 

6833 

NASA 

6834 

NASA 

6835 

NASA 

6836 

NASA 

€837 

NASA 

6838 

NASA 

6839 

NASA 

6840 

NASA 

6841 

NASA 

6842 

NASA 

6643 

NASA 

6844 

NASA 

6845 

NASA 

6846 

NASA 

6847 

NASA 

6648 

NASA 

6849 

NASA 

6850 

NASA 

6851 

NASA 

6852 

NASA 

68  53 

NASA 

6854 

NASA 

6855 

NASA 

6856 

NASA 

€857 

NASA 

6858 

NASA 

6859 

NASA 

6860 

NASA 

6861 

NASA 

6862 

NASA 

6863 

NASA 

6864 

NASA 

6865 

NASA 

6866 

NASA 

6867 

NASA 

6868 

NASA 

6869 

NASA 

6870 

NASA 

6871 

NASA 

6872 

NASA 

6873 

NASA 

6874 

NASA 

6875 

NASA 

6876 

NASA 

6877 

NASA 

6878 

NASA  ' 

6879 

NASA 

6880 

NASA 

6881 

NASA  ' 

' 6882 

891- 


CO  170  1=1, NT 
k=irRUNC*l-I 

Z=((DELH»(K-1) )-FMU)/ (fiOOT2*FSlG) 
R<K)=CERF(ABS(Z)) 

IF  (AaS«Z)  .GT. A.O)  R(K)  = 1,0-R(K» 
R(K)=0.5»(1.-R(K)  ) 

IF  (Z.LT.fl.O)  R(K)=1*-R(K) 

CONTINUE 

RETURN 

END 


REGISTER  ALLOCATION 

1 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  Z36 
1 REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  292 
1,  REGISTERS  ASSIGNED  OVER  THE  LOOP  BEGINNING  AT  LINE  305 


nO 


NASA  6063 
NASA  6664 
NASA  6665 
NASA  6666 
NASA  6887 
NASA  6868 
NASA  6889 
NASA  6890 
NASA  6891 
NASA  6892 


SUBROUTINE  QSF 


76/76  0PT=2 


FTN  4.2+363 


03/27/75  21.39.06 


SUBROUTINE  QSF(H  ,V  .Z.NDIM) 


SUBROUTINE  QSF 
PURPOSE 

TO  COHPUTE^THE  VECTOR  OF  INTEGRAL  VALUES  FOR  A GIVEN 
EQUIDISTANT  TABLE  OF  FUNCTION  VALUES. 

USAGE 

CALL  QSF  (H,Y,ZfNDIH> 

DESCRIPTION  OF  PARAMETERS 

H - THE  INCREMENT  OF  ARGUMENT  VALUES. 

Y - THE  INPUT  VECTOR  OF  FUNCTION  VALUES. 

^ ' IDENTIC Al'^NITh'^Y^'^®*^  INTEGRAL  VALUES.  Z MAY  BE 

NDIM  - THE  DIMENSION  OF* VECTORS  Y AND  Z. 

REMARKS 

NO  ACTION  IN  CASE  NOIM  LESS  THAN  3. 

SUBROUTINES  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 

METHOD 

BEGINNING  WITH  Z(1)=0,  EVALUATION  OF  VECTORZ  IS  DONE  BY 
MEANS  OF  SIMPSONS  RULE  TOGETHER  WITH  NEWTONS  3/fi  RULE  OR  A 
COMBINATION  OF  THESE  TWO  RULES.  TRUNCATION  ERROR  IS  OF 
ORDER  H-»*5  (I.E.  FOURTH  ORDER  METHOD).  ONLY  IN  CASE  NOIM=3 
TRUNCATION  ERROR  OF  Z(2)  IS  OF  ORDER  H**4.  ' 

FOR  REFERENCE.  SEE 

(1)  F.B.HILOEBRANO,  INTROOUCTION  TO  NUMERICAL  ANALYSIS, 
MCGRAW-HILL,  NEW  YORK/ TORONTO/LONOON , 1956,  PP.71-H. 

(2)  R.ZURMUEHL,  PRAKTISCHE  MATHEMATIK  FUER  INGENIEURE  UNO 
PHYSIK£R|  SPRINGER,  8ERLIN/GOETT INGEN/HEIDELBERG,  1963, 


DDENSION  Y(1),Z(1> 

HT=.3333333*H 

IFCN0IM-5)7,8,1 

. yP??  GREATER  THAN  5.  PREPARATIONS  OF  INTEGRATION  LOOP 
1 SUM1=Y(2) +Y(2) 

SUM1=SUM1+SUM1 

SUM1=HT»<Y(1)+SUMI+V(3>) 

AU  X1=Y(4)  + Y(4> 

AUXl-AUXl+AUXl 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA- 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


115 


Z<3)=HT*(Y(1»  + SUM2+Y(3)) 
Z ( 1)  = 0 . 

Z(2I=SUM1 
12  RETURN 
END 


NASA 

7004 

NASA 

7005 

NASA 

7006 

NASA 

7007 

NASA 

7008 

■vO 

I 


-0 


SUBROUTINE  DPI 


76/76  OPT =2 


FTN  4*2+383 


Q3f 27/75 


21.39.07 


5 

10 

15’ 

20 

sO 

I 25 

I—* 

ra 

30 

35 

48 

45 

50 


C 

C 


G 

C 

C 

C 

c 


COHMON  /USERI/ 


1 

2 

3 

4 

5 


lOEBUG, 

HICRO, 


APOGEEt 
EQMIWT, 
EQM2XI. 
ISATQfi, 
RELHE, 
XHER, 


1 

2 

3 

4 

5 

6 

7 
3 

I 

8 
C 


COMHON  /8TMN/  ACSSN 
8ITRATI21, 
• OX, 

FC, 
HTPT, 
LH80S, 
PI, 
RAT, 
SATHT, 
SAIYL, 
THRUST C2>, 
tfCHP, 
HT, 


COHRAT, 

EQHIXL, 

EQM2YL, 

M812SH, 

SPEC(6), 

XHEU 

ACSWP, 

CtIFE, 

OY, 

FF, 

HTRPRB, 

NC, 

PLHIN, 

RJ, 

SATXCG, 

SAIZL, 

II, 

YOU, 

XJ, 


DIAHAX, 
EQHlYt, 
EQM2ZL, 
OPTEMP, 
‘ SPECl, 


EEQHTC9), 

EQMiZL, 

orbing! 

T, 


EPHE, 

EQHZWT, 

lAGNCY, 

PERIGE, 

XCGSAi, 


ALT, 

AREA, 

BATCAP 

CONVMT, 

0, 

DT 

oz. 

EQ8LG, 

EQBSIO 

HARNHT, 

HPT, 

HTPIPE 

HTRPHR, 

IBTLOC 

OHEGS, 

PASSTR, 

PJ 

POCNHT, 

RAOA, 

RADAS 

SA8QLG, 

SATLG, 

SATTWT 

SATYC6, 

SATZCG, 

SAIXL 

SIDE, 

SYSL0, 

THCMWT 

TNKHT, 

TPRIN, 

V8 

WATE, 

HB, 

HBT 

XNZERO, 

VJ, 

ZJ 

COHMON  /0BCOH/CATA8(55,100),IDB«30) 
COMMON  /CHOSE/ 


COST(5,60)  , 
NCHOS6(60} , 
THMC4,60> 


1 NCH0S6( 

2 THMC4, 6 

COMMON/PRTCOM/  ACCfiCY, 

I . 

•at  GSP. 


ARRAY(ll,60h 
RCL  ( 6,60), 


ICHOS6I60) , 
SKO(7,60) , 


1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
8 
C 


« I 

GSE, 

OPS, 

PMP, 

QCP, 

► •r  if 


AN 
CTOT 
FEEINV 
IRELi  ITRUNC 
PAY3NV,  PAYQUL 
PMR,  PQU£R(6) 
OCR,  ROLO<6C) 
SEIP 

I V * ^ 1 


QCPf  QCSf 

SATINY,  SATR,  SEIP, 

SSRELC6),  SUBE(7),  SU3T(7>; 

TA,  TAU(6,6),  TB, 

TF,  TOOLS,  TOOLU, 

TS,  TTT,V0LUHEf6), 

C XLTOT,  XMEH,  XHEINV, 

0 XMEH,  XMEHT,  XVEST 

DDCNSION  HSfT(6E>,TLPTH(60),GRANH(60),XSRT 
* GRANtC&O) 

DATA  ACSRT,ACSOP,COMOP,OFREQ/1C. ,5C. ,6., 4./ 
INPUTS  FOR  DATA  PROCESSING  SUBSYSTEMS  - 

«PUT  GDPI  T D SOURCE  UNITS  DESCRIPTION 
IN. 


BF, 
DOTE, 
FEEOPS, 
MMDOLD, 
PAYR, 

sabmEt/! 

SEIR,' 
, SUBUEC7), 
, TC, 

TOTOPS, 
, YOL(60), 

• XMEL, 


BS, 

DE, 

FEER, 

NAME<3,60>, 

PE, 

PhR(60), 

SATAOP, 

■ SKTAUC6), 
SUBUP(7) , 
TE, 
IRUNC, 
WEI6HT(6» , 
XHEVL, 


<60),TLPTL{6C) 


DPI 


INPUT 

VAR. 


NASA 
NASA 
022575 
022575 
022576 
022575 
022575 
022575 
022575 
822575 
322575 
022575 
022575 
022575 
022575 
322575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
822575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
022575 
322575 
022575 
022575 
022575 
022575 
■ 022575 
022576 
022675 
022675 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 


7009 

701,0 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 
554 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 
.679 
680 

9 

10 

7027 

7028 

7029 

7030 

7031 

7032 


vO 

1 


-4 


55 


60 


65 


70 


75 


80 


85 


90 


95 


100 


105 


110 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


6RAKH 

HSRT 

TLP1H 

Gl;A^L 

XSRT 

TLPTL 

SCSFL 

TOTCH 

CCHTY 

TTCPL 

TPRFL 

ACSSN 

CCMRT 

OPSMS 

MISPO 


36 

35 

31**35 

40 

39 

37+36 

30TO33 

32 


R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

I 


ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
U 
08 

MACRO 

U 

SC 

COMM 

U 

U 


S/S  GRANULARITY  HIGH  RATE  TABLE 

S/S  SPS  SAMPLE  RATE  HIGH^TAELE 
S/S  NO  OF  ANCL  AND  DIG  POINTS  HIGH 

S/S  GRANULARITY  LOW  RATE  TABLE 

S/S  SPS  SAMPLE  RATE  LOH  TABLE 

S/S  NO  OF  ANOL  AND  DIG  POINTS  LOW 

SPECIAL  COMMAND  SYNC  FLAG 
TOTAL  NO  OF  COMMANDS^ 

NCONF(3)  - SPEC  OR  GEN  COMPUTER 
TIME  TAG  COMMAND  FLAG 
TELEM  PROCESS  FLAG 
. • SUM  OF  ACS  SENSOR 
COMMAND  RATE 
SEC-1  MISSION  OPS 

MISSION  DATA  PROC.  FLAG 


ERROR  FLAGS 
lERR  = 1 
I ERR  = 
lERR  = 
lERR  = 

I ERR  = 


MUX  IS  RECUIREO 

10  WORD  LENGTH  GREATER  THAN  256 
100  BIT  RATE  IS  TOO  LARGE^, 

1000  SPECIAL  COMMAND  SYNC  FLAG  IS 
10000  Ji  .GE.  JIE 


NOT  EQUAL  TO  ZERO 


NASA 

7033 

NASA 

7034 

NASA 

7035 

NASA 

7036 

NASA 

7037 

NASA 

7038 

NASA 

7039 

NASA 

7040 

FLAG  NASA 

7041 

NASA 

7042 

NASA 

7043 

NASA 

7044 

NASA 

7045 

NASA 

70h6 

NASA 

7047 

NASA 

7048 

NASA 

7049 

NASA 

7050 

NASA 

7051 

NASA 

7052 

NASA 

7053 

NASA 

7054 

NASA 

7055 

0) 

(I) 


NCH0SE{1>=1 

NCHOSEC2)=l 


110 


00  1 1=1 »7 
00  1 J=l,2  _ 

1 CDPK  If  J)=0.0 

iErai=o 
ICHOS£(1)  = 0 
ICHOSE(2)=0 
IF  (ITER  .EQ. 

IF  (ITER  .EQ. 

8ITRAT(2)=0. 

TOTOPS=0. 

IE«a=Q 

lERR2=fl 

IERR3=0 

IERR4=0 

IERR5=0 

NEWFL=0 

*^CALL^MIS(IPIC,iERR,ITER,NCONF,ICHOS£,NCHOS£> 

IF  (NC0NF(4)  .GT-.  3>  ■ GO  TO  110 

NEHFL=1 

CONTINUE 

ANaH=0. 

ANOLL=C. 

MUX=0 

COMPUTE  TABLES 
TOTCM=0 
TTCFL=0 
NTAaH=0 

♦ we  need  NTA8  ♦.*•+♦«  + *+*+*.**+++♦**♦+*»*•**»* 

♦♦5lSI***2*il*J»**+*¥*»»**+*+*»v***jf^*»*fi»***¥****»»*******-+ 

K=  -1 

DO  170  I=1,NTAB 


111974 
111974 
111974 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
031775 
• NASA. 
031775 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA 
NASA  • 
NASA 
NASA 
NASA 
NASA 


67 

68 
69 

7056 
70  57 

7058 

7059 

7060 

7061 

7062 

7063 

7064 

7065 

7066 

7067 

7068 
1 

7070 
. 2 

7072 

7073 

7074 
70  75 

7076 

7077 

7078 

7079 

7080 
7061 
70  62 
7063 
70  84 
7085 
70  86 


115 

120 

125 

13D 

135 

lAQ 

145 

150 

iSS 

160 

165 


TOTCH=  (ARRAV  (K*2,  I)  +ARRAY  <K*3,  I>  «-ARRAVCK+4, 1)  ) ♦NCHOSS  C D +TOTCM 

TTCFL=TTCFL^-ARSAY(K+4♦I)  *KCHOSGm 

IF  {ARfiAY(K+7,n  ,EQ,0.>  GC  TO  150 

NTA8H=NT  ABH+1 

HSRT(NTAaH)=ARFAY(K+7tI) 

GRANH(NTABH)=ARRAY<K+8,1) 

TLPTHCNTABH)  = «ARRAYCK+5,I)4AFRAY(K+6,IH*NCH0S6CI) 

150  IF  IARRAY(K+6,I) .NE.O.)  MUX=i 

IFCARRAY(K+li»I) .EQ.O,)  GO  TO  160 
NTA8L=NTA8L*1  ' 

XSRT(NTA8L)=ARFAY(K+ll,n 
GRANKNT  ABLI  =ARRAY  (K+12, 1) 

TLPTU  tKTA8U  = {ARRAYCK  + 9,I)+AfiRAYlK+lfl,Ill*NCH0SG(n 
160  IF  IARRAY(KflO,I) .NE.O.)  HUX=1 

ANCLH=ANOLH+ARRA  Y (K*5 • 1) *NCHOS6 (I) 

170  ANOtL=ANOLL4ARfiAY  (K+9  f I)  »NCHOSG  1 1», 

IF  CNEWFL.EQ.O)  60  TO  240 

C *****9^*****  NEED  NTA8N  **#*#»***♦*»♦**♦*♦»»♦**♦♦*#**♦♦♦ 

NTABN=  NHSEQ 

C **lt'*^**  ***9***9»t  ***9*99  9 9‘*>mV‘99****V'*******‘t  99**  4 9 *****»$  ***¥ 

K=  -1 

DO  23fl  I-1.NTA8N 

T0TCM=T0TCH+ARRAYN{K+2,n  + ARRAYN{K+3»I)+ARRAYN(K+4,I> 
TTCFL=TTCFUARfiAYN{K+4|I) 

IF  lARRAYNtK*?,!) .EQ.Q.)  GO  TO  210 
NT ABH=NT ABH+1 
HSRTINTABH)=ARRAYN{K+7,I) 

GRANH{NTAeH)=ARRAYNtK+8,i). 
TtPTH(NTABH)=ARRAYNfK+5,I)4ARRAYN<K+6,n 
IF  CARRAYN(K+6,I) .NE.O.)  MUX=1 
IF  CARRAYNCK+li.D.EQ.O.)  60  TO  220 
NTABL=NTA8L+i 

XSRTCNTABL) =ARRAYN<K+11, I) 

GRANL {NTABL)=ARRAYN{K+12,I) 

TLPTL {KTA8L)=ARRAYN(K+9.I)+APRAYK<K+iO, I) 

IF  (ARRAYN<K+10,I).NE.0.)  MUXwi 
ANCLH=:AN0LH+ARfiAYN(K+5,I) 

ANCLL=AM0LL+ARfiAYN<K+9»I) 

CONTINUE  ' 

ANOLH--NO  OF  ANOL  FTS  IN  HIGH  TA8 
ANOLL  -NO  OF  ANOL  FTS  IN  LOW  TAB 

IF  f MUX. NE.O)  1ERR1=1 
IERR=IERR+IERR1 

C • COUNT  NUMBER  OF  POINTS  OF  ALL  TABLES 
SUMTLP=0. 

JL=0 

BTRFL=0 

IF  I8TRMX.NE.1.024E6)  BTRFL-l 
C ORDER  TELEM  POINTS  BY  SAMPLE  RATE  - HIGH 

IF  CNTA8H.EQ.1)  GO  TO  280 
250  CONTINUE 

CALL  ORDER  <NTAaH,HSfiT,TLFTH,GRANH,XM2,M£0IAN) 

JL=sJL+i 

IF  fJL.EQ.2)  GO  TO  280 
DO  270  1=1. MEDIAN' 

260  IF  <HSRT(I).LE.XF2)  GO  TO  270 
PSfiT(I)  = HSRT<I>/2. 


210 


220 

230 

240 

C 

C 


NASA 

70  87 

NASA 

7088 

NASA 

70  89 

NASA 

7090 

NASA 

7091 

NASA 

7092 

NASA 

7093 

NASA 

7094 

NASA 

70  95 

NASA 

7096 

NASA 

7997 

NASA 

7098 

NASA 

7099 

NASA 

7100 

NASA 

7101 

NASA 

7102 

NASA 

7103 

NASA 

7104 

NASA 

7105 

NASA 

7106 

NASA 

7107 

NASA 

7108 

NASA 

710,9 

NASA' 

7110 

NASA 

7111 

NASA 

7112 

NASA 

7113 

NASA 

7114 

NASA 

7115 

NASA 

7116 

NASA 

7117 

NASA 

7118 

NASA 

7119 

NASA 

7120 

NASA 

71'21 

NASA' 

7122 

NASA 

712-3 

NASA 

7124 

NASA 

7125 

NASA 

7126 

.NASA 

7127 

NASA 

7128 

NASA 

7129 

NASA 

7.130 

NASA 

71.31 

NASA 

7132 

NASA 

7133 

NASA 

7134 

NASA 

7135 

NASA 

•7136 

NASA 

7137 

NASA 

7138 

NASA 

7139 

NASA 

7140 

NASA 

7141 

NASA 

. 7142 

NASA 

7143 

170 
175 
180 
185 
190 
.fi  195 

I 

-j 

ui 

208 

205 

210 

215 

22Q 

225 


270 

280 

C 


290 

300 

310 

320 

330 

C 


340 


350 

360 

C 

C 


365 

1000 

370 

C 


RATE 

320 


340 


TLPTHa)=2.*TLPTH(I) 

GO  TO  260 
CONTINUE 
60  TO  25C 
SSR=HSRT(1> 

SSR  = MAIN  FRAME 

JL=0 

IF  (MTABH.EQ.l)  GO  TO 
CONTINUE 

CALL  ORDER  {NTAaH,GRANH,TLPTH,  f-SRT*XM2»HE0IAM) 
JL=JL+1 

IF  (JL.EQ.2)  GO  TO  320 
00  310  I=1,MEDIAN  , ^ 

IF  CGRANH(I) .LE.XM2)  GO  TO  310 
GRANH  Cl)  =GRAKH  (II /2, 

TLPTHCI)=2.*TL  FTH(I) 

GO  TO  300 
CONTINUE 
GO  TO  290 
SUMHH=0 

DO  330  I=1,NTA8H 
SUMHH=SUMHH+TLPTH(I) 

SUMMH  = NUMBER  OF  WORDS 
SUKWH=SUM«H*1*2 
IF  (SUMWH.LE.256.)  GO  TO 
ICHOSECi)=-l 
1ERR2=10 
IERR=IERR+IERR2 
RETURN 
FOWER=16. 

CO  350  NN=5,8 
N=NN^ 

P0W£R=P0HER*2. 

IF  ( POWER* GE.SUMMH)  GO  TO 
CONTINUE 
TLHHD^ POWER 

H§LMAX*^=’^HQRD^LENGTh'to^MA^  REQUIRED  LENGTH 
WDLHAX:::D. 

DO  365  II=i.NTA8H 
IF  CGRANHCII)  *GT. 

CONTINUE 

COPIC2,l)  = TLMHD 
CDPI(3,1)  = SSR 
CDPI(4,1)  a WDLMAX 
eiRAT£sWDLMAX*TLMWO»SSfi 
FRINT  10 00, a IRATE 
FORMAT  (13H  0IRATE  U)  - ♦Ell.A) 

DO  370  MM=1,18 
K=NM-1 

TT=2.**N*7.8125 
IF  CTT.GE.SIRATE)  GO  TO  380 
CONTINUE 
ICHOScU)=-l 
IERR3=180 

IERR=IERR+IERR3  . . 

lERR  = 100  BIT  RATE  TOO  LARGE 


360 


MOLMAX)  HOLMAX=GRANHCII) 


NASA 

7144 

NASA 

7145 

NASA 

7146 

NASA 

7147 

NASA 

71 48 

NASA 

7149 

NASA 

7158 

NASA 

7151 

NASA 

7152 

NASA 

7153 

NASA 

7154 

NASA 

7155 

NASA 

7156 

NASA 

7157 

NASA 

7158 

NASA 

7159 

NASA 

7160 

NASA 

7161 

NASA 

7162 

NASA 

7163 

NASA 

7164 

NASA 

7165 

NASA 

7166 

NASA 

7167 

NASA 

7168 

NASA 

7169 

NASA 

7178 

NASA 

7171 

NASA 

7172 

NASA 

7173 

NASA 

7174 

NASA 

7175 

NASA 

7176 

NASA 

7177 

NASA 

7178 

NASA 

7179 

NASA 

7188 

NASA 

7181 

NASA 

71  £2 

NASA 

71£3 

NASA 

7164 

NASA 

71£5 

111874 

75 

111874 

76 

111874 

77 

NASA 

7186 

110  474 

i 

110474 

2 

NASA 

7187 

NASA 

7168 

NASA 

7189 

NASA 

7190 

NASA 

NASA 

7191 

h92 

NASA 

7193 

NASA 

7194 

NASA 

7195 

230 

235 

2<»0 

245 

250 

vO 

i 

5 255 

2 60 
2 65 
270 
2 75 
280 


RETURN 

380  eiRATE^TT 

BirRATU)  = 8IRATE 
Jt.=0 

C ORDER  UOH  SAHPLE  RATE 

, - IF  {NTA8L.EQ.D  GOTO  420 

390  CONTINUE  i 

CALL  ORDER  (NTAfll ,XSRT»TLPTL,GRANl,XH2 ,H£DIAN) 
JL=JL  + 1 

IF  CJL.EQ.2)  GO  TO  420 
DO  410  I=1,HEDIAN 

400  IF  CXSRT C3>.LE.XH2)  GO  TO  410 
XSRT(I)~XSRT(I)/2. 

TLPTLCI)=TLPTLCI)*2. 

GO  TO  400 
410  CONTINUE 

GO  TO  390- 
420  SFR=XSRT(1» 

C SFR  = highest  rate  IK  LOW  RATE  TABLE 

SFL=SSR/SFR 

C SFL  SUB  FRAME  LENGTH 

. IF  <SFL*LE*2.**N)  GO  TO  440 
N=7 

IF  <SFL.GE.2.»*N)  GO  TO  440 
CO  430  N=5,7 
NP1=N  + 1 

IF  CSFL.GE.2.**N. AN0.SFL.LE,2.*»NP1>  GO  TO  440 
430  CONTINUE 

440  SFL=2,**N 

• SUMWL=0. 

^ DO  450  1=1,NTA8L 

450  SUNML=SUHHL<-TLPTL  (II 
SUMHL=SUHHL*1.2 
NSUBFR=SUMHL/SFLtl 

C (II  aiT  RATE  TT 

C (2)  WORD  LENGTH  WDLMAX 

C ’ (31  NUMBER  OF  M/F  WORDS  TLHWO 

C (41  NUMBER  OF  SUBFRAMES  NSUBFR 

C (5)  NUMBER  OF  WORDS  PER  S/F  SFL 

C (6)  NEED  FOR  DIGITAL  MUX  MUX 

CDPI(5,il  = NSUBFR 
CDPI(6,1»  = SFR 
C0PI(7,1I  = SFL 
C 

C SPECIAL  COMMAND  SYNC  FLAG 

IF  (SGSFL.NE.O.I  IERR4»i0fl0 
I£RR*I£RR+I£RR4 
TOTCM=TOTCM*1.S 
. CO  4&0  NN=1,100 
■N=NN 

IF  (TQTCM,LE.2.**N)  GO  TO  470 
460  CONTINUE 
470  TOTCH=2.»*N 

COPKltll  = rOTCM 

COWOLN=N 

K=5NC0NF(3) 


NASA 

7196 

NASA 

7197 

NASA 

7198 

NASA 

7199 

NASA 

7200 

NASA 

7201 

NASA 

7282 

NASA 

7203 

NASA 

7204 

NASA 

7205 

NASA 

7206 

NASA 

7207 

NASA 

7208 

NASA 

7209 

NASA 

7210 

NASA 

7211 

NASA 

7212 

NASA 

7213 

NASA 

7214 

NASA 

7215 

NASA 

7216 

NASA 

7217 

NASA 

7218 

NASA 

7219 

NASA 

7220 

NASA 

7221 

NASA 

7222 

NASA 

7223 

NASA 

7224 

NASA 

7225 

NASA 

7226 

NASA 

7227 

NASA 

7228 

NASA 

7229 

NASA 

7230 

NASA 

7231 

NASA 

7232 

NASA 

7233 

NASA 

7234 

NASA 

7235 

NASA 

7236 

111874 

78 

111874 

79 

111874 

80 

NASA 

7237 

NASA 

7238 

NASA 

7239 

NASA 

7240 

NASA 

NASA 

7242 

NASA 

7243 

NASA 

7244 

NASA 

7245 

NASA 

7246 

111874 

81 

NASA 

7247 

NASA 

7248 

GO  TO  C480 ,500  ) , M 

IF^CTPRFC.NE.O.)  TLMOPS=TT*OPREQ/WDLMAX 
IF  (TPRFL.NE.O.)  GO  TO  490 
Jl=IOB(l»+l 
1PIC(2)  = J1 

ICHOSEC2)=DATA0<1»J1)  , 

IF<ITEfi.EQ.O)  NCH0SE(2)=  1 

HT=  MT  + NCH0SE(2»*0ATAB <Z3,J1)  . 

VOL=  VOL  + NCHOSE (2)*DATAB<2 A, Ji) 

PL=  PL  ^ NCH0SE(2>*0ATAa(16,Ji)  „ ^ 

FLHIN=  PLMIN  + NCHOSE  ( 2)  *DATAB  (1 8,  J1 ) 

ACSOPS=ACSSN*ACSRT^ACSOP 

CHOOPS  = COMRAT  * COMOP 

TOTOPS=TLMOPS+ACSOPS+CMDCPS+OPSMS 

TOTOPS=TOTOPS»l. 2*1.5 

IF  CITER.NE.O)  GO  TC  510 

IERR=:0 

»EQUIP=2 

ICHOSE(1)  = 0 

L=1 

J1E=I0B(M) 

IF  (M^.NE.  1)  ^ 

IF  CIPICIL) .NE.O)  GO  TO. 520 
GO  TO  540 

IF  <ITER.EQ.0>  GO  TO  530 
J1=IPIC(L) 

IF  (IPIC(L)  »GE.  JIE)  GO  TO  570 
J1=IP1CCL)+1 

HA«»AR=DATA0(6|J1)*1OOO. 

GO  TO  (560t550J.,  H. 

ICHOS£(LK=OATA8(l,Jl) 

VOL=  VOL  + NCHOSE (L)*DATAB(54* Jl) 

FL=  PL  ♦ NCH0SE(L>*0ATA8tl6,Jl> 

PLMINa  PLMIN  + NCHOSE(L) *DATAB(18,J1) 
RETURN 

HARPAR=OATAa<6,Jl»*1000. 

IF  <TOTOPS.LE. HARPAR»^GO  TO  550 

IF  (Jl.GE.JlE)  GO  TO  570 

J1=J1+1 

GO  TO  560 

IERR5=10000 

IERR=IERR+IERR5 

1CH0SE(L)  = -1 

RETURN 

END 


1^Rf1iIteRs‘'aSSIGNEO  over  the  loop  BEGINNING  Af  LINE  189 
i rIgISTERS  ASSIGNEO  over  the  loop  beginning  at  LINE  257 


NASA 

7249 

NASA 

7250 

NASA 

7251 

NASA 

7252 

NASA 

7253 

NASA 

7254 

NASA 

7255 

NASA 

7256 

NASA 

7257 

NASA 

7258 

NASA 

7259 

NASA 

7260 

NASA 

7261 

NASA 

7262 

022675 

11 

NASA 

7264 

NASA 

7265 

NASA 

7266 

NASA 

7267 

NASA 

7268 

NASA 

7269 

NASA 

7270 

NASA 

7271 

012875 

3 

012875 

4 

NASA 

7272 

NASA 

7275 

NASA 

7276 

NASA 

7277 

NASA 

7278 

012875 

5 

NASA 

7260 

NASA 

7281 

NASA 

72  62 

NASA 

7283 

NASA  - 

7284 

NASA 

7285 

NASA 

72  66 

NASA 

7287 

NASA 

7288 

NASA 

72  89 

NASA 

7290 

NASA 

7291 

NASA 

7292 

NASA 

7293 

NASA 

7254 

NASA 

7295 

NASA 

7296 

NASA 

7297 

NASA 

7298 

NASA 

7299 

NASA 

7300 

y 178 


UBROUTINE  ORDER 


76/76  0PT=2 


SUBROUTINE  ORDER  < N. A ,B,C  ,XM2 » MEGI AN) 
CROERS  ARRAYS  ANC  GETS  HEOIAN  VALUES 
DIMENSION  ACDt  B(l).  C(l) 

IF  IN  .EQ.  1)  60  TO  50 

M£OIAN=N/2 

KK=ME0IAN*2 

KKK^2 

rKK'^’'i'‘f-Si.D'‘5IS5lER  OF  FOINTF 

IF.  (A  Cl)  .&Q.  0.  ) GO  TO  20 
XLG=A(I) 

IF  CXLcTci*  ACJ) ) GO  TO  10 
XLG=ACJ) 

JJ=J 

CONTINUE  , 

IF  CI.EQ.JJ)  60  TO  20 
AS=A(I) 

BS=8CI) 

CS=C(I) 

ACD^ACJJ) 

e(I)=3(JU) 

C(I»=C(JJ) 

ACJJ)=fAS 

ecjj)=BS 

CCJJ)=CS 

CONTINUE 

GO  TO  (30.40)  f KKK 
XH2*AC  MEDIAN)  *2. 

XmSa(MEDIAN)+A(MEDIAN+1) 

RETURN 

. 50  CONTINUE 

XH2=2.*A(1) 

HE0IAN=1 

RETURN 

END 


FTN  4,2+383 


03/27/75  21.39.10 


NASA 

7301 

NASA 

7302 

NASA 

7303 

NASA 

7304 

NASA 

7305 

NASA 

7306 

NASA 

7307 

NASA 

, 7308' 

NASA 

7309 

NASA 

7310 

NASA 

7311 

NASA 

7312 

NASA 

7313 

NASA 

7314 

NASA 

7315 

NASA 

7316 

NASA 

7317 

NASA 

7318 

NASA 

7319 

NASA 

7320 

NASA 

7321 

NASA 

7322 

NASA 

7323 

NASA 

7324 

NASA 

7325 

NASA 

7326 

NASA 

7327 

NASA 

7328 

NASA 

7329 

NASA 

733,0 

NASA  . 

7331 

NASA 

7332 

NASA 

7333 

NASA 

7334 

NASA 

7335 

NASA 

7336 

NASA 

7337 

NASA 

.7.338 

NASA 

7339 

'-179 


SUBROUTINE  MIS 


76/76  0PT=2 


FTN  if. 2+383 


tiZ/Z7/75  2i,  39.12 


Dlf^NSIOh  IPICI2).  ICH0SE(2I.  ^CONF<6),  NCHuSEtZ) 
COMMON  /USER3/ARRAYN(11,3>,  ItRMX,  NMSEQ,  OPSHS. 
1 TPRFL 


COMMON  /8TMN/  ACSSN# 

1 BITRAT(2), 

I 9^» 

? FC 

4 htpt; 

5 tHBOOy 

6 PL, 

7 RAT, 

SATHT, 
SAlYLj, 

ICT  / ■»  » 


SAIYL, 
THRUST{2) , 
VCHP, 

lit' 


ACSHP, 

CLIFE, 

oy, 

FF, 

HTRPRB, 

NC, 

flmin; 

RJ, 

SATXCG, 

SAIZL, 

VOL, 

XU, 


G WTi  xu; 

COMMON  /OBCOM/DATAB(55,iOO),IDE(3C> 
COMMON  /CHOSE/  COST(S!,6Q),  AR 


ALT, 

CONVWT, 

02, 

HARNHT, 

HTRPWR, 

OMEGS, 

POCNWT, 

SABOLG, 

SATYCG, 

SIDE, 

TNKMI, 

HATE, 

XNZERO, 


AREA, 

0, 

EQSLG, 

HPT, 

PASSTR, 

RAOA, 

SATL6, 

SATZCG, 

SYSLB, 

TPRIM, 

HB, 

VJ, 


SCSFL, 


BATCAP, 

OT, 

ECaSID, 

HTPIPE, 

I8TL0C, 

PJ, 

RA0A8, 

SATTWT, 

SAIXL, 

THCMMT, 

VB, 

WBT, 

ZJ 


C0ST(S!,6Q)  , 
NCHOSGI63>, 
THMCA,  60) 


ARRAYCli,60), 
REL  { 6,68), 


COMMON/PRTCOM/  ACCRCY, 

1 C0PIC7,2>, 

2 DRIWT, 

3 GSE, 


AM, 

CISTAR, 

trnD  CTO 


AN, 

CTOT, 

FEEINV, 

TTDiiMr> 


CTOT 

DRIWT,  EQBSTR,  FEEINV 

GSE,  IREL,  ITRUNC 

OPS,  PAYIMV,  PAYQUL 

PMP,  PHR,  PQHER(6) 

QCP,  OCR,  ROLQ(60) 

SATINV,  SATR,  SEIP 

;«EL(5),  ^SU9E(7),  SU8T(7) 

TA,  TAU<6,6),  TB 

TF,  TOOLR,  TOOLU. 

^ ^TS,  TTT,V0LUME<6) 

XLTOT,  XMEH,  XMEINV, 

IfMFU.  ywcCT 


lCHOSG(eO), 

SKO<f,60)/ 

8F,  BS, 

^ DOTE,  oe; 

FEEOPS,  PEER, 
MM0OLO,NAME<3,60) , 
PAYR,  PE,' 

PU,  * 


sat: 

SSREL 


r«-  t 

ru,  PHR(60), 
SABHWT,  SATADP, 
SEIR,  SKTAU<6), 
SU8UE(7),  SU8UP(7), 
TC , Ic , 

TOTOPS,  TRUNC, 
VQL(6a),WEI6HTC6), 
XMEL,  XMEVL, 


2 » » I fVULUtItIbl 

C XLTOT,  XMEH,  XMEINV 

D SHEW*  XMEHT,  XVEST 

DIMENSION  HSRTC6tn,TLPTH(60)  ,GRANH  (60)  , XSRT 
* GRANLC&O) 

INPUTS  FOR  DATA  PROCESSING  SUBSYSTEMS 

NPUT  COPI  T D SOURCE  UNITS  OFSCPTPTTnN 


<60),TLPTL(60), 


- HIS 


COPI 

IN. 


39 

37+38 


30TO32  R 


R Y ALL  S/S 
R Y ALL  S/S  SPS 
R Y ALL  S/S 
R Y ALL  S/S 
R Y ALL  S/S  SPS 
R Y ALL  S/S 
R U 

R oe 


GRANULARITY  HIGH  RATE  TABLE 
SAMPLE  RATE  HIGH  TABLE 
NO  OF  ANOt  AND  OIG  POINTS  HIGH 
GRANULARITY  LOW  RATE  TABLE 
SAMPLE  RATE  LOW  TABLE 
NO  OF  ANOL  AND  OIG  POINTS  LOW 
SPECIAL  COMMAND  SYNC  FLAG 
TOTAL  NC  OF  COMMANDS 


N/)SA 

NASA 

022576 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

02257S 

022575 

0 22575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

022575 

0 22575 

022575 

022575 

022575 

022575 

022576 

022575 

022575 

822575 

0 22575 

022575 

022575 

022575 

0 22  675 

022675 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


vO 

I 


00 

o 


55 


60 


65 


70 


75 


60 


65 


50 


95 


IGO 


105 


110 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


COHTY 

TTCPL 

TPRFL 

ACSSN 

COHRT 

OPSMS 

HISPO 


33 


R 

R 

R 

R 

R 

R 

I 


MACRO 

U 

SC 

COMM 

U 

u 


SEC-1 


NCONF(3)  - SPEC  OR  GEN  COMPUTER  FLAG 

TIME  TAG  COMMAND  FLAG 

TELEM  PROCESS  FLAG 

SUM  OF  ACS  SENSOR 

COMMAND  RATE 

MISSION  OPS 

MISSION  DATA  PROC.  FLAG. 


40 


50 

60 

C 

C 


ERROR  FLAGS 
lERR  = 1 
lERR  = 10 
lERR  = 100 


MUX  IS  REQUIRED 
WORD  LENGTH  GREATER  THAN  256 

lERR  = 1000  SPECIAL^cSmmInO  SYNC  FLAG  IS  NOT  EQUAL  TO  ZERO 
lERR  = 10000  Ji  .6£.  JIE 


IERR=0 
IERR1  = 0 
IERR2=0 
IERR3=0 
IERR4=0 
I£RR5=0 
ANOLH=0. 

ANOLL=0. 

MUX=a 

COMPUTE-  TABLES 
TOTCM=0 
TTCFL=0 
NTABH=0 

he  need  NT ABN  *************9****************** 

^^^1^^%**H^*^**********  **<*************  ******************* 

K=  -1 

TOTCM=Tof6M+ARFAYN(K+2*I> ♦ARRAYN (K+3, I) +ARRAYN (K+4»I) 
TTCFL=TTCFL+ARRAYN(:K+4tI)_^ 

IF  (ARRAYN(K*7,I) iEQ.0.1  GO  TO  40 

■ HSRTCNTABH)*ARRAYN(K+7tI) 

rp?ii5I!WI!li:SSir»!!ilSr5|iLARR.YK<K*6.i) 

If  ISRRSYmKtilJiKiQJol)"^'^  50 

XSct'(NTA8lV=ARRAYN<K4-11iI> 

5EJ^LSSlfBi:!=JgirY!lilSUhr*ARRAYN(Kt 

IF  (ARRAYNIK+lOfl) .NE.O. ) MUX=1 


IN  HIGH 
IN  LOW 


AN0LH=AN0LH+ARRAY,N(K-»5»I> 
AN0LL=AN0LL+ARFAYN(K+9fI> 

ANOLH— NO  OF  ANCL  PTS 
ANOLL  -NO  OF  AKOL  PTS 
IF  (MUX.NE.O)  I£RR1=I 

COUNT^NUMBER^OF  POINTS  OF  ALL  TABLES 
SUMTLP=0. 

JL=0 


TAB 

TAB 


NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA. 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 

NASA 


7366 

7367 

7363 

7369 

7370 

7371 

7372 

7373 

7374 

7375 

7376 

7377 

7378 

7379 
7360 
7301 
7362 
73  63 

7364 

7385 

7386 
73  67 
7360 
7369 

7390 

7391 

7392 

7393 

7394 

7395 

7396 

7397 

7398 

7399 

7400 

7401 

7402 

7403 

7404 

7405 

7406 

7407 

7408 

7409 

7410 

7411 

7412 

7413 

7414 

7415 

7416 

7417 

7418 

7419 

7420 

7421 

7422 


6TRFL=fl 

NASA 

7423 

IF  CQTRMXoNE.1.824e6>  BTRFL=1 

NASA  ' 

7424 

C . 

OfiCER  TELEM  POINTS  SV  SAMPLE  RATE  - HIGH 

NASA 

7425 

115 

IF  CNTAeH.EQ.l)  GO  TO  100 

NASA 

7426 

70 

CONTINUE 

NASA 

7427 

CALL  ORDER  (NTA8H,HSRT,TLPTH,GRANH,XM2, MEDIANI 

NASA 

7428 

JL— JL  +1 

NASA 

7429 

IF  (JL.EQ.2)  GO  TO  100 

•NASA 

7430 

120 

00  90  I=lfMEOZAN 
IF  CHSRTTI),LE.XH2>  SO  TO  SO 

NASA 

7431 

80 

NASA 

7432 

HSRT(I)=HSRTa)/2, 

NASA 

7433 

TLPTHa>=2.’»TLPTHtII 

NASA 

7434 

GO  TO  80 

NASA 

7435 

125 

90 

CONTINUE 

NASA 

7436 

GO  TO  70 

NASA 

7437 

100 

SSR=HSRT(1) 

NASA 

7438 

C 

SSR  = MAIN  FRAME  RATE 

NASA 

7439 

IF  tNTABH.EQ.iJ  GO  TO  140 

NASA 

7440 

130 

JL=0 

NASA 

7441 

110 

CONTINUE 

NASA 

7442 

CALL  ORDER  (NTA8H »GRANH,TLPT R,HSRT,XH2,HEOIAN) 

NASA 

7443 

- 

JL=JL+i 

NASA 

7444 

IF  CJL.EQ.2)  GO  TO  140 

NASA 

7445 

135 

DO  130  I=l*MEOIAN 

NASA 

7446 

120 

IF  <GRANH«I}*LE.XH2i  60  TO  130 

NASA 

7447 

GRANH  < I) =GRANH /2. 

NASA 

7448 

o 

TLPrHa)=2.*TLPTH(I> 

NASA 

•7449 

i 

GO  TO  120 

NASA 

7450' 

2 

1^0 

130 

CONTINUE 

NASA 

7451 

GO  TO  110 

NASA 

7452 

140 

SUMHH«0 

NASA 

74S3 

CO  150  I=1,NTA8H 

NASA 

7454 

150 

SUMHH=SUMWH+TLPTH  C I» 

NASA 

7455 

145 

C 

SUMHH  a httJMBER  OF  HORDS 

NASA 

7456 

SUMHHaSUMWH*1.2 

■NASA 

7457 

IF  {SUHWH,L£.256,)  GO  TO  160 

NASA 

7458 

ICHOSE<i}a-i 

NASA 

7459 

IERR2=10 

NASA 

7460 

150 

IERR=IERR+IERR2 

NASA 

7461 

RETURN 

NASA 

7462 

160 

P0W£R=16. 

NASA 

.7463 

00  170  NN=5*a 

NASA 

7464 

K=NN 

NASA 

7465 

155 

PQW£R=ROWER*2. 

NASA 

7466 

IF  < POWER. GE.SUHMH)  GO  TO  180 

NASA 

746,7 

170 

CONTINUE 

NASA 

. 7468 

180 

TLMMOaPOHER 

NASA 

7469 

C 

MAIN  FRAME  LENGTH  “ TLMND 

NASA 

74.70 

160 

C 

HDLHAX  a WORD  LENGTH  TO  MAX  REQUIRED  LENGTH 

NASA 

7471 

WOLHAXaO. 

NASA 

7472 

CO  185  II=1,NTA8H 

IF  tGRANH(II)  ,GT.  MOLMAX)  WOLHAX=GRANH < ID 

NASA 

7473 

NASA 

7474 

185 

CONTINUE 

NASA 

7475 

165 

C0PI(1,2)  = TOTCM 

111874 

83 

CDPI(Z,2I  = TLMWD 

111874 

64 

► 

COPI(3,2J  a SSR 

111874 

85 

C0PI<4,2>  = WDLHAX 

111874 

06 

170 
175 
180 
185 
190 
vD  195 

I 

I—' 

00 

M 

200 

205 

210 

215 

220 

225 


1000 

190 

C 

200 


c 

210 


220 


230 

240 

C 


250 

268 


270 


,C 

C 

c 

c 

c 

c 


aiT  RATE  TOO  LARGE 


BIRATE=HOLMAX*TLMWD*SSR 
FRINT  1OOO,0IRATE  _ 

FORHAT  (13H  BiRATE  (2)  = ,tll.4> 

DO  190  MM=1,18 
K=HM-1 

TT=2.»*N*7.8125  ^ ^ ^ 

IF  (TT.GE.aiRATE)  GO  TO  200 
CONTINUE 
ICHOSE(l)=-l 
1ERR3=100 
1ERR=IERR+IERR3 
lERR  = 100 
RETURN 
BIRAT£=TT 

BITRAT(2)  = BIRATE^^  „ 

IF  <NTABL.EQ.l)  GO  TO  240 
JL=0 

ORDER  LOW  SAHPLE  RATE 

CALL^ORDER  (NT ABL , XSRT ,TLFTL ,GRANL ,XM2 .MEDIAN) 
JL=JL4-1 

IF  (JL.EQ*2)  GO  TO  240 
DO  230  1=1. MEDIAN 
IF  CXSRT(I) .LE.XM2)  GO  TO  230 
XSRT(I»=XSRT(I)/2. 

TLPTLCI)=TLPTL(I>*2. 

GO  TO  220 
CONTINUE 
GO  TO  210 

SFR=XSRT  U)lGH^g^  RATE  IN  LOW  RATE  TABLE 

SFL=SSR/SFR 

SFL  SUB  FRAME  LENGTH 

IF^(SFL.LE.2.**N>  GO  TO  260 

IF^(SFL.GE.2.»*N)  GO  TO  260 
CO  250  N=5,7 

IF^(SFL.GE.2.**N,AND.SFL.LE.2.**NPi)  GO  TO  260 

CONTINUE 

SFL=2.»*N 

SU  MHL=0. 

DO  270  I=1.MTABL 
sumhl=sukhL+tlftlci) 

SUMHL=SUMWL*1.2 
NSU8FR=SUMHL/SFL+1 
(1)  BIT  RATE^^ 

C2)  WORD  LENGTH  ^ 

(3)  NUMBER  OF  H/F  HOROS 

(4)  NUMBER  OF  SUBFRAMES 

(5)  NUMBER  OF  WORDS  PER  S/F 

(6)  NEED  FOR  DIGITAL  MUX 
CDPI(5.2)  = NSUBFR 
CDPI(6,2)  = SFR 

IF^^  ( NC0NF(3)  *^*'.£0.  1)  GO  TO  280 


TT 

WDLHAX 

TLMHD 

NSUBFR 

SFL 

MUX 


NASA 

7476 

110474 

3 

110h74 

4, 

NASA 

7477 

NASA 

7478 

NASA 

7479 

NASA 

7480 

NASA 

7481 

NASA 

7402 

NASA 

7483 

NASA 

7484 

NASA 

7485 

NASA 

7486 

NASA 

7487 

NASA 

7488 

NASA 

7489 

NASA 

7490 

NASA 

7491 

NASA 

7492 

NASA 

7493 

NASA 

7494 

NASA 

7495 

NASA 

7496 

NASA 

7497 

NASA 

7498 

NASA 

7499 

NASA 

7500 

NASA 

7501 

NASA 

7502 

NASA 

7503 

NASA 

7504 

NASA 

7505 

NASA 

7506 

NASA 

7507 

NASA 

7508 

NASA 

7509 

NASA 

7510 

NASA 

7511 

NASA 

7512 

NASA 

7513 

NASA 

7514 

NASA 

7515 

NASA 

7516 

NASA 

7517 

NASA 

7518 

NASA 

7519 

NASA 

7520 

NASA 

7521 

NASA 

7522 

NASA 

7523 

NASA 

7524 

NASA 

7525 

NASA 

7526 

111874 

87 

111874 

88 

111874 

‘89 

031775 

3 

J1=I08(1)+1 
IP  XC  C 2 ) *■ 

ICH0SE(2)=DATAB(i,Jl)  , 

230  IF (ITER.EQ.O)  NCH0S|(2)=1 

HT=  HT  + NCH0SE(2)*DATAB  (23.J1 > 

WOL=  tfOL  + NCHOSE  (2>*0ATA8<2A,J1> 

FL=  PL  + NCH0SE<2»»0ATAB(16iJi 
fLHIN=  PLMIN  + NCH0SE(2)*DATAB(18, Jl) 
235  280  CONTINUE 

RETURN 

END 

Iters*' ASSIGNED  over  the  loop  beginning  at  line  143 
i rISItIrs  assignIo  over  the  loop  beginning  at  line  212 


00 

CO 


10.  DETAILED  FLOW  CHARTS 


The  following  are  detailed  flow  charts  of  the  entire  model. 


10-1 


■ DECK 
C 
C 
C 

c ■■ 

TUfQ  fQ  TMf  MQril  nstvPA 

IT  SEQUENCES  NLL  SEOHENTS  OF  COOlNG.HANOlES  I/0*SETS 
CONPIOURPTIONS 

'-r 

- 

{ PROGRRM  NRSfiCP  ( INPUT  .OUTPUT .TflPEl .TfiPE5  = lNPUT ,rflPE6  = 0UTPUT ) | 

1 COMMON  /USERI / BLPHft. 

AX. 

AY. 

AZ. 

DPMI . 

ER. 

EANT  . 

EPl  . 

K. 

MANY. 

OMEGR. 

PDOTAV. 

PDOTRX, 

PDOTRY, 

PDO'TRZ. 

POOtST. 

PDOTX. 

POOTY. 

PDOTZ. 

POOTO. 

PHIFOV . 

PHIRX. 

PHIRY. 

PHIRZ, 

TACCEL. 

THETMX. 

THOLD. 

TL. 

TPMIN, 

tsmall. 

XN. 

XNN. 

XNNN. 

XNU. 

YN. 

ZN 

i 

COMMON  /USER3/BRRBYNf It .3)>  8TRHXt 

NHSEO. 

OPSMS. 

scsfl. 

TPRFL 

{COMMON  /US£R4/8UlOTHi23. 

FREOI 2). 

FREOR. 

lOPTCHI 3), 

LINK. 

NRDIR. 

NET 

{COMMON  /USERS/  CDEEXJ9). 

EELOC193. 

EEQVLI9). 

EHIYCG, 

EMIZCG. 

EOPF,  EM2YCG. 

EH2ZCG. 

ISBOFC. 

NUHEEQ. 

XCGSA3 

T' 

' 

COMMON  /USER8/SKDME(  7.3) 

COMMON  /USER9/  CR. 

CE 

COMMON. /USERR/  ISPT, 

I SUB. 

KEOPT. 

RFIXEO. 

SLBMX 

COMMON  /USERC/  FEEPCT, 

IMETYP, 

NFV. 

NOV. 

PI 

COMMON  VUSERP/  IPRINT, 

[TITLE 

{ COMMON  '/USER!/  flPOBEE. 

COHRAT. 

OIAMAX. 

EEOMTig), 

EPHE. 

EONIMT. 

EOMIXL. 

EOMtYL. 

EOMIZL . 

E0H2MT . 

E0H2XL. 

EQH2YL. 

E0N2ZL. 

FE. 

lAGNCY,. 

[DEBUG.  ISRTOR. 

MB12SH, 

DPTEMP, 

ORBINC. 

PERIGE. 

MICRO.  RELME. 

SPECI6). 

SPECl  . 

T, 

XCGSAI. 

. XMER. 

XHEU 

- - 

{ COMMON  /8THN/  RCSSN. 

ACSHP. 

ALT. 

AREA. 

BATCAP. 

BITRRTI2). 

CLIFF. 

CONVHT. 

0. 

OT. 

OX. 

DY-. 

OZ. 

EQBLG. 

EOBSIO. 

FC. 

FF  , 

HARNHT  , 

HPT  . 

HTPIPE  , 

HTPT, 

HTRPRB. 

HTRPUR. 

IBTLOC. 

LM800. 

NC. 

OMECS. 

■PASSTR. 

PJ. 

PL. 

PLMIN. 

POCNHT. 

RAOA. 

RADAB. 

RAT, 

RJ. 

SABOLG. 

SATLG. 

SATTHT, 

- 

SATHT. 

SATXCG. 

,SATYCD. 

SATZCG. 

SAIXL. 

SAl YL . 

SAIZL. 

SIDE. 

SYSLB, 

THCMHT, 

THRUSTI23. 

TI  , 

T'NKUT. 

TPRIM. 

VB. 

VCHP . 

VOL  . 

HATE. 

UB. 

UBT  . 

NT. 

XJ. 

XNZERO. 

YJ, 

ZJ 

CONT.  ON  PG  2 


PG  I OF  ?1 


10-2 


COnnON  /DBCOn/ORTflBf 55< 


.1061301 


COMMON  /CHOSE/ 


cosn  5*60  )• 

HCHOSEI 60  ). 
THMl 4.60) 


OPini ll t601. 
PEL  I 6.601. 


ICHOSEI 801 
SKOf  7.60). 


OIHEHSION  WCONFI-ei.NEOUlPlSl.IEftRm.IPICl.l  3).IPIC2i  91.IPIC3I  2). 

tPICil 91.IPICSI Sl.ICHOSli 91.ICH0S2I 1 4 1 . ICH0S3I 2 1 . ! CH0S4U I 1. 
ICH0S5I  5 ) .KCHOSir  9),.HCH0S2i  14  1 ,HCHBS3I  2 1 .NCH0S4I  It  l.NCHOSSIS) 


OIMENSION  ITITLEI 13) 


C ■•□■■■^■■■•■•BeKaaaaaBaaBaeaBBaaaBBBVBaaioaQaaaesRaBsaavBaaaBBBaBaaaaa 

C aa  THE  NAMELIST  INPUTS  ARE  BROKEN  INTO  THREE  C'ATEBORIES.  THAT  aa 
C aa  IS  CATEGORIES  OF  REQUIRED.  DESIRED.  ANO  OPTIONAL  PARAMETERS.  aa 
C aa  THE  FOLLOWING  IS  A LIST  OF  THE  INPUTS  TO  THE  MODEL  - - bb 
C aa  bb 
C aa  NAME  REP. VALUE  UNITS  DESCRIPTION  aa 
C aa  REQUIRED  INPUT  ORTA  aa 
C BB  APOGEE  SOO.  NHI  ORBIT  APOGEE  aa 


— 1 - 

C aa 

EPME 

300. 

WATTS 

MISSION  EQUIP  POWER  REQ.  a 

c ■■ 

EOMUT 

43S. 

LB 

MISS.EO.HT  .-O.IF  NO  M-E.  1 a 

C a a 

EQM2UT 

43S. 

LB 

MISS.EO.WT.-O.IF  NO  M-E-  2 a 

C BB 

IPRINT 

1 

— 

1 :SYS.2  = S/S.3--ASSEMBLy  a 

C aa 

MICRO 

0 

— 

MICRO  1 S/S)  FLAG  a 

C BB 

NFV 

4 

— 

NO.  FLUE  VEHICLES  a 

C aa 

NOV 

I 

— 

NO.  QUAL.  vehicles  a 

C aa 

PERIOE 

500. 

NMI 

ORBIT  PERIGEE  a 

C aa 

SPEC6 

0.6  . 

— 

SYS.  REL-  AT  EOL  a 

C a» 

SPECl 

18. 

MO 

SYS-  MMO  REO.  a 

C aa 

T 

24. 

MO 

MISSION  LIFETIME  a 

C aa 

■ 

C aa 

DESIRABLE 

INPUT  ORTA 

u 

C 

ARRAYN 

MISSION  DATA  FOR  UP  TO  3 EQ.  a 

C B« 

CGEEX 

2. 



LOC.OF  EXT. EO.IFT. CENT .AFT)  a 

C aa 

EELOC 

3. 

— 

LOC.OF  EXT  .EO.I RT  ,LFT .TOP.BOT la 

■ EEQVL 

0. 

FT««3 

EXT.  EG.  VOLUHES  • 

■ EEOur 

0. 

LB 

EXT.  EG.  UEIOHT.S  ■ 

> EH.trco 

0. 

IN 

H.E.  t V-CG  « 

• EMJZCG 

0. 

IN 

N.E.  1 Z-CC  ■ 

• EMZrCG 

0. 

IN 

H.E.  2 Y-CO  ■ 

• EM2ZC& 

0- 

■ IN 

n.E.  2 Z-CG  ■ 

« EOntXL 

40. 

IN 

N.E-.  1 length  ■ 

■ EOHIYL 

40- 

IN 

N.E.  1 UIOTH  ■ 

c 

m K 

EGNIZL 

40. 

IN 

N.E.  1 HEIGHT  ■■ 

c 

m 0 

,E0M2XL 

40- 

IN 

N.E.  2 length  «■ 

c 

a 0 

E0N2YL 

40. 

IN 

N.E.  2 WIDTH 

c 

0 0 

E0N2ZL 

40. 

IN 

N.E.  2 HEIGHT 

c 

00 

IflCNCr 

1 

- - - 

ftOENCY  TYPE  t:USflr.  2:NflSfl 

c 

a 0 

IHETYP 

2 

N.E.TYPE  .UC0N.2  = EQ.3:LUN.4sPL«» 

c 

0 0 

ISBT.OR 

1 

r - ^ 

ORIENT.  UEO. 2 = 50.3:10 

c 

0 0 

HB12SH 

t 

— 

N.E. BAY  SHAPE. 1=CYL.2=B0K  •* 

«'  NNSEG 

1 

- - 

NO-  N.E.  TT»C  OBTft  ARRAYS 

lit 

■ NUNEEQ 

■ 0 

— 

NO.  EXT.  EG. 

■ * 

■ OPSNS 

0. 

oPS/sec 

NO.  HISS.  OPS 

■ t 

R PHIRX 

0.75 

OEO 

REG.  ROLL  ACCURACY 

00 

H PHIRY 

0-75 

OEO 

REG.  PITCH  ACCURACY 

0 0 

■ PHIRZ 

0-75 

oe& 

REG.  YAH  ACCURACY 

0 0 

R PI 

1 .0 

— 

PRICE  INDEX  FACTOR 

1 ■ 

R'  RELHE 

1 .0 

N.E.'  REL.  AT  EOL 

■ t 

SKDHE 

0. 

— 

N.E.  SXEO  DATA  ■ 

XNER 

0. 

— 

H.E.  DOTfE  COST  b 

XNEU 

0. 

— 

H.E.  AYG  UNIT. COST  r 

OPTIONAL 

INPUT  DATA 

t 

ALPHA 

12.0 

DEG 

THRSTR  OFFSET  IN  ROLL-YAU  r 

AX 

.05 

DEG 

HISALIGNHENT  ERRORS  IN  r 

AY 

.05 

DEG 

NOUNTING  INERTIA  UNITS  R 

AZ 

.05  DEG 

13-AXIS  HASS  EXP.  ONLY) 

0 t 

BTRHX 

1.024  E*OGBIT/SEC 

NAXINUN  BIT  RATE 

BB 

BWIOTH 

2r( -1 .ElOJriZ 

bandwidth  FOR  XNTRIS) 

00 

CP 

10.  G 

AXIAL  LAUNCH  ACCELRATION 

00 

CE  . 

5-  G 

LATERAL  LAUNCH  ACCELERATION 

0 0 

COHRAT 

1000.  BAUD 

RECEIVER  COHNANO  RATE 

00 

01 ANAX 

120.  IN 

NAXINUN  SATELLITE  OIANETER 

00 

B 

OPHI 

.25  DEG 

NAIN  ENG. align  TO  THRST  AXIS 

0 0 

R EA 

.10 

OEG 

ANTENNA  HI  SAL  I GNNENT 1 PH  ONLY) 

MB 

R ' EANT 

.1 

RAO 

ANTENNA  ELEVATION  1 PH  ONLY) 

M 0 

R £P1 

.0001 

DEG/SEC 

HAX  PON  PITCHOVER  RRTEI3-AXIS) 

00 

R EQPF 

2. 

- * « 

VOLUNE  SIZING  FACTOR 

00 

R f E 

4-1 

OEG 

TRANSLATIONAL  THRSTI NON-ZERO ) 

00 

R FEEPCT 

.07 

- - . 

CONTRACTOR  FEE  PERCENTAGE 

00 

R FREQ 

2r( 2250. ) 

MHZ 

FREQ  OF  DOWNLINK  XNTRI S) 

00 

R-  FREQR 

1800. 

MHZ 

RECEIVER  FREGUENCY 

00 

i ^ 

HR  idebug 

0 

— 

0 = D£6UG  OFF,  UOEBUG  ON 

n 

HR  lENOl 

5 

— 

LAST  ALLOWABLE  FOR  SANOC  - - 

END2 

EN03 

EN04 

ENOS 

lENOE 

lENOR 


LAST  ALLOWABLE  PQR  AP 
LAST  ALLOWABLE  fOR  DPI 
LAST  ALLOWABLE  POR. CONH 
LAST  ALLOWABLE  FOR  EP 
LAST  allowable  FOR  VESIZE 
LAST  allowable  FOR  RELY 


« lOPTCM 

0 

— 

RANGING  REOUIRERENT 

0:N0.1 

: YESla 

■ IS80FG 

0 

— 

5A  BOOM  ORIY  REO 

0=N0.1 

:YES«a 

• I SPT 

0 

— 

SINGLE  PT  FAIL  RED 

0=NO 

1 m 

• ISTRTl 

1 

— 

FIRST  allowable  FOR 

SANOC 

1 fl 

• ISTRT2 

1 

— 

FIRST  allowable  FOR 

AP 

i 9 

• ISTRT3 

1 

— 

FIRST  ALLOWABLE  FOR 

DPI 

• ■ 

• I S T S T 4 

1 

— 

FIRST  ALLOWABLE  FOR 

COMM 

va 

• ISTRTS 

1 

- - 

FIRST  ALLOWABLE  FOR 

EP 

1 ■ 

• ISTRT6 

1 

— 

FIRST  ALLOWABLE  FOR  VESI2E 

1 m 

■ ISTRTR 

0 

— 

FIRST  ALLOWABLE  FOR  RELY 

■ w 

a I SUB 

0 

— 

S/S  REL  FLAG  1 =AT  LEAST  l S/S 

Mtt 

* K 

1 

- - ' 

AXIS  RELATIyITY  (DUAL-SPIN) 

1 a 

B KEOPT 

1 

— 

EXPENSE  OPT  INO 

i a 

> LINK 

1 

- - ' 

COMM  LINK! 0=USB.1=SGLS) 

a a 

a MANY 

1 

- * - 

YEH  SKEWING  FLAG. 

a a 

" NADIR 

I 

• a.  • 

NADIR  COVERAGE  FLAG 

«a 

NET 

ONECR 

OPTENP 

OR6INC 

POOTAV 

POOTRX 

POOTRY 

PDOTR2 


POOTST 

POOTX 

PDOTY 

POOTZ 

POOTO 

PHIFO^ 

RFIXEO 

scsfl 


SLBNX 
SPECf I ) 
SPEC! 2 ) 
SPEC! 31 
SPEC( 4 1 
SPECI5) 
TACCEL 
thetnx 


60. 

RPR 

IS. 

DEG  C 

28. S 

DEG 

.01 

OEG/SEC 

.012 

OEG/SEC 

.012 

OEG/SEC 

.012 

OEG/SEC 

.0667 

OEG/SEC 

1 . 

OEG/SEC 

1 . 

OEG/SEC 

1 . 

OEG/SEC 

1 . 

OEG/SEC 

40.0 

OEG. 

SOOOO. 

.9 

.9 

.9 

.9 

.9 

20. 

180. 


OiAFSCF  NET,  0:NRSA  NET  ■« 

SPIN  RATE .OF  ROTOR 
BATT.  TEMP.  ,, 

ORBITAL  INCLINATION  ■> 

AVC  BODY  RATE  LO  ORBIT  CHO  ONL«« 
REO  SYS  RATE  ACC.  X *■ 

REO  SYS  RATE  ACC.  Y b« 

REO  SYS  RATE  ACC.  2 » 


MAX  RATE  STAS  RATE  INFOtCM&l  i« 
RAX  MANY.  RATE  X la 
RAX  MANY.  RATE  Y la 
MAX  MANY.  RATE  2 «. 
MAX  INIT.  RATE  aa 
MAX  RNO  ATT  FROM  TRK  STARlCMGlia 
INITIAL  SYSTEM  RELIABILITY  aa 
SPEC.  CRD  SYNC  FLO  0 = N0  UYES  •« 


MAXIMUM  SYSTEM  WEIGHT 
SANDC  S/S  REL.  REO. 

AP  S/S  REL.  REO. 
DPI  S/S  REL.  REO. 
COMM  S/S  REL.  REO. 

EP  S/S  REL.  REO. 
ACCEL  TIME  FOR  MANY. 


I CMG) 


MAX  MANY  ANGLE! CHG  ONLY) 


THOLO 

TL 

TPMIN 

TPRFL 


100000. 
I .0 
1 .0 

0. 


TIME  YEH. INERT  HOLD  (CMG)  aa 
TIME  BTWN  UNLOAD  NHL  MHNTICMGIaa 
MIN  P/L  SCAN  PERIOD  aa 
TLHTRY  prog  FlG  0:SEPARATE  aa 


CONT.  ON  PG 


10-5 


EEPRODUCJB^y^  THE) 
ORIGINAL  I^^GE 


TSMRLL 

100. 

SEC 

NRIN  END  BURN  TIRE 

XCOSfll 

1 . 

* - - 

LOC  SLR  PDOLES  lrF.2:C.3ifl- 

. XCGSR3 

1 . • 

. - - 

LOC  SOY  RTD  SR  lsF,2=C.3iR 

XN 

1 . 

— 

NO.  RRNV.  RBOUT  ROLL  RXIS 

I j f ■ « i i I I m iT^J 


nnc  BTUN  Sfl  CORK.  (DUAL  SPIN) 
NO  SINO  CI.NB  OrROS  ICHC) 
CONTROL  SrSTEfl  EFFICIENCr 
NO-  HflNV  RBOUT  PITCH  AXIS 
NO.  RRNV  RBOUT  YRU  RXI.S 


FT¥  HJ  IJJJXJJTJJLITT  H 1 1 g|m  i »|  j|i  |,| 


IJM 


NRRELIST  /REOUIR/ 

flPOQEE. 

NOV. 

T 

EPRE. 
IPRINT  . 
PERICE. 

EQRIUT  . 
' RICRO. 
SPECI  . 

E0R2UT. 

NFV. 

SPECS.  • 

^ - 

NRRELIST  /DESIRE/ 

RRRRYN. 

COEEX. 

EELOC. 

EEQVL. 

EEQUT. 

ERIYCG. 

EHIZCG* 

ER2YCG. 

EM2ZCG. 

EOHIXL . 

EOHIYL. 

EOHtZL . 

EQH2XL . 

E0R2YL . 

EQR2ZL . 

IRGNCY, 

IRETYP. 

ISRTOR. 

RB12SH. 

NRSEO. 

NUREEO. 

OPSHS, 

PKIRX. 

PHIRY. 

PHIRZ. 

PI. 

RELRE.  •- 

SKORE. 

XRER. 

XHEU 

NRRELIST  /OPTION/ 

RLPHR. 

RX. 

RY . 

RZ. 

BTRRX. 

BUIOTH. 

CR. 

CE. 

CORRRT. 

OIRRRX, 

OPHI . 

ER. 

ERNT., 

EPl. 

EOPF. 

FE. 

FEEPCT. 

FREQ. 

FREQR. 

lENOl . 

lOEBUG. 

IEN02. 

IEN03. 

IEN04. 

lENOS. 

[ENOS. 

lENOR. 

lOPTCR. 

ISBOFG. 

ISPT. 

ISTRTl. 

ISTRT2. 

ISTRT3, 

ISTRT4, 

ISTRT5. 

ISTRT6. 

ISTRTR. 

ISUB. 

K. 

KEOPT , 

LINK. 

RRNV. 

NROIR. 

NET  . 

QREGR. 

OPTERP. 

ORBINC. 

POOTflV. 

PDOTRX. 

PDOTRY. 

PDOTRZ. 

PDOTST. 

POOTX. 

PDOTY. 

PDOTZ. 

POOTO. 

PHI-FOV. 

RFIXEO. 

SCSFL  . 

SLBHX. 

SPEC. 

TRCCEL. 

THETHX . 

THOLD. 

TL. 

TPRIN. 

TPRFL  . 

rSRRLL. 

XCGSRI . 

XCGSR3. 

XN. 

XNN. 

XNNN. 

XNU. 

YN. 

ZN 

DRTR  NEQUlP.NRCCEP/6«0/ 


DRTR  ISTRTt  .lENOl  .ISTRT2.IEN02.ISTRT3. IEN03.ISTRT4.IEN04.ISTRTS. 
IENDS.ISTRT8.IEN06.ISTRTR-.IENOR/1 .5.1 .3>1 .2.1 .5.1 .G.I .3.0.1/ 


CO  ro  99 


CONT..  ON  PC  8 


PG  7Qf 21 


10-8 


10-9 


CONT.  ON  PG  !0 

PG  9QF  ?i 


10-10 


< 00  28  l.=  t.9  > 


MX  y . - — 

Van  ftiixPRO  ilPIC2.1ERRl2r.ITER.NC0NP.ICHQS2.NCH0^ 


NEOUIPI 2 )=0  1 

_ 

00  102  t-l»ITEST2 


ff  TTch^2(  I ) -LT.  0 .flHO.  HICRO  . L T «__2J. 


CO  TO  13 


[^’*TTc'hOS2I  1 1 -L;T  . 0 .AND.  MICRO  .EQ «^2J_ 


00  TO  14 


If  (ICHOS21I5  .or.  01 


CONT,  (W  PG  12 


10-12 


10-13 


CONT.  ON  PC  14 


PS  IHF  21 


10-14 


10-15 


C«U  EPl  ;PICS.lERRtS).lTER.)<C0WF.ICH0S5.NCHQSS) 


10-17 


Hir 

I NEQUlPt  S)=NE0UIPt5)»il 


iaTLOC=NOMflT-t>l  { 


16  ' - 


CONTINUE 

X 


HEIOHTf  S):NT-TEnPHr 
VOLUHEI S)=VOL-TEHPVL 
P0HER1S3  = PL-TEHPPL-EPHE 
WRITE  I6.1Q00)  MT.VOl 


CRLL  SAVE! ICHQSS »NCH0SS .NOMflT , I TESTS » I ENDD6 ) | 

» - 


I CALL  VESI2EJ I ERRf6 ) .NCONF . I CHOS6 ) I 
> -- 


CpNT.  ON  PC  18 


PS  iT£ n 


10-18 


10-19 


10-20 


COMT.  ON  PC  21 


10-21 


EEPRODUOIBILmy  OF  THE 
ORIGINAL  PAGE  IS.  POOR  ■ 


1 


SUBROUTINE  RRESETI lERR) 


THIS  SUBROUTINE  CfiLCULRTES  HHRT  USED  TO  BE  EITHER  CONSTANTS  OR 
INPUT  VALUES.  IT  NON  MILL  CALCULATE  THE  VALUES  OF  THESE 
CONSTANTS  FROH  OTHER  INPUT  VALUES  HHERE  THEY  ARE  GIVEN  ELSE-IT 


1 COUHON 

/USERR/  ISPT, 

isue. 

KEOPT. 

RFIXEO. 

SLBNX  1 

ConnoN 

/USERI/ 

APOGEE. 

COHRAT . 

OlARAX. 

EEQHTig). 

EPHE. 

EOniUT. 

EOntXL. 

EOHIYL. 

EONIZL. 

E0H2UT. 

E0H2XL. 

E0H2YL. 

E0M2ZL. 

FE. 

lAGNCY. 

lOEBUC. 

ISATOR. 

HB12SH. 

OPTEHP. 

ORBINC. 

PERIGE. 

niCRO. 

RELNE. 

SPECI6). 

SPECl . 

T. 

XCGSAl . 

XHER. 

XHEU 

...A 

COHMON 

/BTHN/ 

ACSSN. 

ACSUP. 

ALT. 

AREA. 

BATCAP. 

8ITRAT) 2) . 

CLIFE. 

CONVUT. 

SATDAn. 

or. 

OX. 

OY. 

DZ. 

EQBLG. 

EOBSIO. 

FC. 

FF. 

HARNUT. 

HPT, 

HTPIPE. 

HTPT  . 

HTRPRB. 

HTRPHR.' 

IBTLOC. 

LMBOD. 

NC. 

OHEGS. 

PASSTR. 

PJ. 

PL. 

PLHIN. 

POCNWT . 

RADA. 

RADAB, 

RAT  . 

RJ. 

SABOLC. 

satlg. 

sattht  . 

SATHT. 

SATXCG. 

SATYCO. 

SATZCG. 

SAIXL  . 

SAIYL  . 

SAtZL. 

SIDE. 

SYSL8. 

THCNHT. 

THRUSTI 2) . 

TI. 

TNKNT. 

TPRIH. 

VB. 

VCHP, 

VOL. 

NATE  . 

UB. 

UBT  . 

NT, 

XJ. 

XNZERO. 

YJ. 

ZJ 

axu 


THE  FOLLOWING  ftR£ft"pRESE TS*THERHfl^  CONSTANTS 

I ■ I ■ V a ■ S ■ K I K M ■ ■ It 


lllllllllllll'UHIIITI 


I 1 fTT 1 n 1 1 11  1 H I 


1 1 I li,t  m ill  I I I 1 1 1 1 i I liLj 


ALT  rlAPOGEE  » 

PERIGE)  / 2.0 

IF  lORBINC  .NE.  -360.) 


CONT.  ON  PG 


10-23 


10-25 


CONT , ON  PC  5 

PC  4 OF 15. 


10-26 


SBTIKX  - (SBTHT  ■ SRTDflH  « SBTpflH  / 8.) 


BJ  = SBTINX 


CONT.  ON  PC  7 


PC 


10-28 


qKiSsSS:IK:Sl:l^ 


CO  TO  400 


1 EQMOEN  = 25 .0  1 

JlZIXZ— 

vi  = EOHlUT/eOnOEN 
V2  : EQH2MT/EQHDEW 


IF  IH812SH  AT.  2) 


00  TO  350 


IF  t EOHUL-EO-I -ElO) 


FOHIYL  = I V1«I728./0.6)««.333 


IF  I EOmZL  .EO.l  .ElOl 


CONT.  ON  PG  8 


10-29 


10-30 


10-31 


10-3Z 


10-33 


kisbodug^B;^ 

OEIGINAI*  IS  WM 


10-34 


CONT.  ON  PC  U 


PG  1»F LSl 


10-35 


10-36 


10-37 


SUBROUTINE  INI  HU  NCONf  . lERR  ) 


THIS  SUBROUTINE  SETS  flPPROXIHBTIONS  POR  ALL  VALUES  IN  8THN 
WHICH  ARE  USED  BEFORE  THEY  ARE  CALCyLATEO 


DIMENSION  NCONFI 6) 


COMMON  /USERl/ 

ALPHA. 

AX. 

AY, 

AZ. 

OPHI. 

EA. 

EANT. 

EPI. 

X. 

OMEOR. 

POOTAV. 

POOTRX. 

POOTRY, 

POOTRZ. 

PDOTST. 

POOTX. 

pooty. 

PDOTZ. 

POOTO. 

PHIFOV. 

PHIRX. 

PHIRY, 

PHIRZ. 

TACCEL. 

THE.TMX, 

THOLO. 

TL. 

TPMIN. 

TSMALL. 

XN. 

XNN. 

XNNN. 

XNU.. 

YN. 

ZH 

COMMON 

/USERl/ 

APODEE. 

COMRAT . 

OIAMAX. 

EEOUTI 9). 

EPHE. 

EQMIUT. 

EOMIXL. 

EOMI-YL. 

EOMIZL. 

E0M2UT. 

E0M2XL. 

E0M2YL. 

E0M2ZL. 

FE. 

lAONCY. 

IDEBUO. 

ISATOR. 

MB12SH. 

OPTEMP. 

ORSINC. 

PERICE. 

MICRO. 

RELME. 

SPECfB). 

SPECl . 

T, 

XCGSAl . 

XMER. 

XMEU 

^ ^ 

COMMON 

/BTHN/ 

ACSSN. 

ACSNP. 

ALT. 

AREA. 

BATCAP. 

BITRATI 2). 

CLIFE. 

CONVUT. 

D. 

or. 

OX. 

DY. 

-oz. 

EOBLG. 

EOBSIO. 

FC. 

FF. 

HARNWT. 

HPT. 

HTPIPE. 

HTPT, 

HTRPRB. 

HTRPUR. 

IBTLOC. 

LMBOD. 

NC. 

OMEOS. 

PASSTR. 

PJ. 

PL. 

PLMIN. 

POCNUT. 

RAOA. 

RAOAB. 

RAT. 

RJ. 

SA60LO. 

SATLO. 

SATTUT. 

SATHT. 

SRTXCC. 

SRTYCC. 

SATZCO. 

SAUL. 

SAIYL. 

SAIZL. 

SIDE. 

SYSLB. 

THCMUT. 

THRUST,!  2). 

M. 

TNKUT. 

TPRIM. 

. VB. 

VCHP. 

VOL. 

MATE. 

HB. 

HBT. 

NT. 

XJ. 

XNZERO. 

YJ. 

ZJ 

COMMON/PRTCOM/  ACCRCY, 

AM. 

AN. 

BF. 

BS. 

C0PH7.2). 

CISTAR. 

CTOT. 

ODTE. 

DE. 

ORIUT. 

. EOBSTR. 

FEEINV. 

FEEOPS. 

FEER. 

OSE. 

IREL. 

ITRUNC. 

MMOOLO.NAHEO.BO). 

OPS. 

PAYINV. 

PAYQUL. 

PAYR. 

PE. 

PMP. 

PMR. 

P0HERI6). 

PU. 

PHRreO). 

OCP. 

OCR. 

R0L0(60). 

SABMHT . 

SATAOP. 

SATINV. 

SATR. 

SEIP. 

SEIR. 

SKTAU16). 

SSRELl 6) • 
TA. 
TF. 
TS. 
XLTOT. 
XMEM. 


SUBEI7).  SUBTI7). 

TAUl6.6)t  TB> 

TOOLR*  TOOLU* 

rrr*voLUME(6]. 
XHEH*  XNEINV. 

XMEMT,  XVEST’ 


SUBUEr7),  SUBUP(7), 

TC.  TE, 

TOTOPS.  TRUNCp 

VQUBOI.UEIDHneip 
XHELp  xhevl. 


lERRrO 


10-38 


10-39 


SflTIMy'ISRTHT/l2.)«l  .75«SflTDflM«SRTDflM»E08LI>«EOBLI>l 
SRnNZrSflTINX ^ 

I 00  TO  100 


COST.  ON  PC  4 


10-40 


10-41 


00  TO  120 


CONT.  ON  PC 


PG-  SOT a 


10-42 


CONT.  ON  PG  8 

pfi..m a_i 


10-44 


SLOCK  OSTS 


SETS  «LL  OEFflULT  VfiLUES 


COMHON  /USERl/ 

RLPHR. 

RX. 

RY. 

' RZ. 

OPHI. 

ER. 

ERNT. 

EPl. 

K. 

NRNV. 

ONECR. 

POOTRV. 

PDOTRX. 

POOTRY. 

POOTRZ. 

POOTST. 

POOTX. 

POOTY. 

POOTZ. 

POOTO. 

PHIFOV. 

PHIRX. 

PHIRY. 

PHIRZ. 

TRCCEL. 

THETHX. 

THOLD. 

TL, 

TPHIN. 

TSHRLL. 

XN. 

XNN. 

XNNN. 

XNU. 

YN. 

ZN 



COtINON  /USERa/RRRnrNI  11.3).  BTRHX. 

TPRFL 


NHSEO. 


OPSHS, 


SCSFL I 


COnnON  /USER4/BUI0THI2).  FREOI2). 

NROIR.  NET 


FREQR.IOPTCni 3) . 


LINK. 


COnnON  /USERB/ 

COEEXI9). 

EELOCI 9). 

EE0VU9). 

EMIYCG. 

ENIZCG. 

EOPF. 

EM2YCG. 

EM2ZCG. 

IS80FG. 

NUNEEO. 

XCGSR3 



COMMON  /USER8/SK0MEI 7.3) 

j 

COHNON  /USERS/ 

CR. 

CE  1 

COtinON  /USERl/ 

RPOGEE. 

COHRRT. 

OIRHRX, 

EEOUTO). 

EPHE. 

EOMIHT. 

EQNtXL. 

EONIYL. 

EQMIZL. 

EQM2MT. 

EOH2XL. 

E0M2YL. 

EQN2ZL. 

FE. 

IRCNCY. 

lOEBUG. 

ISRTOR. 

N612SH. 

OPTENP, 

ORBINC. 

PERICE. 

KICRO. 

RELME. 

SPECiB). 

SPECl. 

T. 

XCGSRl . 

XHER. 

XHEU 

i ^ 

COHNON  /USERC/ 

FEEPCT, 

INETYP. 

NFV. 

NOV. 

PI 

COMMON  /USERR/ 

ISPT, 

ISU8. 

KEOPT, 

RFIXEO. 

SL8HX 

^ 

1 COMMON  /BTHN/ 

RCSSN. 

RCSMP. 

RLT. 

RREfl. 

BRTCRP. 

BITRRTI2). 

CLIFE. 

CONVUT. 

D ■ 

01. 

OX. 

OY, 

DZ. 

EOBL&. 

EOBSIO. 

FC. 

FF, 

HRRNUT. 

HPT  , 

HTPIPE. 

HTPT. 

HTRPRB. 

HTRPUR* 

IBTLOC. 

LMBOD. 

NC. 

OMEGS. 

PflSSTR. 

PJ. 

PL. 

PLMIN. 

POCNUT. 

RROR. 

RRORB. 

RRT  . 

RJ. 

SRBOLG. 

SRTLG. 

SRTTUT. 

SRTUT. 

SRTXCC. 

SRTYCG. 

SRTZCG. 

SRIXL. 

SRIYL. 

SRIZL. 

SIOE. 

SYSLB. 

THCNHT. 

THRUST(2). 

TI . 

TNKHT . 

TPRIN. 

VB. 

VCHP. 

VOL. 

URTE. 

UB. 

M8T. 

NT. 

XJ. 

XNZERO. 

YJ. 

ZJ 

i 

DRTR  OPHI  .FE.TSMRLL. 

XNU. POOTO. r/ 

.25.4.1  . 

100. . 3. .1. 

.24./  1 

DRTfl  PHlRX.PHIRY.PHIRZ.PDOTX.PDOrY.PDOTZ.XN.YN.ZN.PODTRX.PDOTRy . 


itWiia 


POOTRZ/3».7S.6»l .•3«.Ot2/ 


ORTA  QHECStOnECR.PJtXNNfK.MMV  / 1 .5708 1 1 .E 1 D .75 . • 1 .E  10 1 1 . 1 / 
DRTR  £P1 oRX.nr.RZ/.OOOI oSa.OS/ 

OflTfl  THETRX.TPMIH  /190-.I0./  


ORTfl  Efl.ERNT.fiLPHfl.TL.TflCCEL.XNMU.THOLO.POOTny.POOTST.PHlFOV 
/.I  ,.l  .12.  .1 . .1 .£ 10.4.. 1 00000. ..01 ..0667,40./  ^ 


ORTfl  CLlfE/50000./ 

ORTfl  niCRG.IftONCY  /O.l/ 


ORTR  BTItRX. SCSFL.rPRFl.OPSHS.mtRRYN.NHSEO/l 024000. *36b0.  . 
0/  


DATA  tyOLT.OPTEHP.EPHE  /0. 15. .200./ 


OATA  lOPTCH.LIMK.FREO.NET.NAOIR.FREOR.COflRAT .BUIDTH 
/3a0.1 *2«22S0.. 2*0. 1800., 1000..2I-1  .£10/ 


OATA  E0PF.HB12SH*E0niXL.E0HirL*e0H!2L.E0H2XL.EQH2yL  /4.gS,l. 
Sat.EtO/ 


DATA  EQRZZL.ISBOFO.NUnEEO.EEOUT.EEOyL.EHiyCG.EHlZCO.EHZrCO 
/1.E10,2»0,21»0./  


DATA  CH2ZC&.C0EEX .EELOC.XCOSAl .XCG5A3  /O . .9-2 . .9a3 . .2>1  . / 
OATA  ISATOR*ORBlNC.IAONCr/l .-360. .1/ 

DATA  SX0HE/2t«0./ 

OATA  CA.CE/10.,5./ 


DATA  E0HlMT.EQH2UT.0IAHRX.AP0OEE.PERIGE.HICR0/2«435..120..2«50O.. 
0/ 


OATA  KEOPT.RFlXEO.SLBHX.tSPT.SPEC.SPECl.ISUB.RELHE  / 1. 
1 . .50000. .O.S^l -1 . ) ,0.6, 18. *0,-1 ./ 


OATA  NFy,N0y .XRER,XNEU*FEEPCT,tHETyP.PI  /4 . 1 .0. *0 . ,0.07 .2 . 1 ./ 


0-4' 


SUBROUTIME  COSTS  ( NCONF .MEOUl P } 


F'i'l  1 1 1 i i u 1 1 i 1111  i i n 1 1 1 1 1 ■ J 1 H IJ  m 

c ••  THIS  SUBROUTIN 
C •«  COSTS  FOR  CER 

E COLLECTS  COSTS 
ITEMS  AND  STORES 

FOR  CATRLOO  items  AND  CALCULATES 
THEM  FOR  OUTPUTTING 

■ iMHIIIIIIliillMTn 

1 COMMON  /USERC/ 

FEEPCJ. 

IMETTP. 

NFV. 

NOV . 

PI  1 

^ - 

COMMON  /USERI/ 

APOGEE. 

COMRAT . 

OIAMAX. 

EEONTIS). 

EPME. 

EOMIHT . 

EOMIXL. 

EOMIYL. 

EOMIZL . 

E0M2HT. 

E0M2XL. 

E0M2VL. 

E0M2ZL. 

XOUMl  . 

lAGNCr. 

lOEBUG. 

ISATOR. 

MB12SH. 

OPTEMP. 

ORB  INC. 

PERIGE. 

MICRO. 

RELHE  . 

SPECI6). 

SPECl . 

X0UM2 . 

XCGSAI . 

XMER. 

XMEU 

COMMON  /BTHN/  ACSSN. 

ACSMP. 

ALT. 

AREA. 

BATCAP. 

BI TRATI 2 ) . 

CLIFE. 

CONVUT. 

0 . 

DT » 

DX. 

OY. 

OZ. 

- EOBLG. 

EOBSID. 

FC. 

FF. 

HARNHT. 

HPT . 

HTPIPE. 

HTPT . 

HTRPRB. 

HTRPWR. 

IBTLOC. 

LMBDO. 

NC. 

OMEGS. 

PASSTR. 

PJ. 

' PL. 

PLMIN. 

POCNWT. 

RADA. 

RAOAB. 

RAT  . 

RJ. 

r 

SABOLG. 

SATLG. 

SATTNT. 

SATUT. 

SATXCG. 

SATYCG. 

SATZCG. 

SAIXL. 

SAIYL. 

SAIZL. 

•SIDE. 

SYSLB. 

THCMUT. 

THRUST! 2). 

TI. 

TNKNT. 

TPRIH. 

VB. 

VCHP. 

VOL. 

MATE. 

WB. 

U6T. 

NT. 

XJ. 

xnzero. 

YJ. 

ZJ 

^ 

COMMON  /CHOSE/ 


NCHOSEISO). 
THMI 4.60) 


REL  I 6.60). 


SK0I7.60). 


COMMON/PRTCOM/  ACCRCY. 

AM. 

AN. 

BF. 

BS. 

CDPIt  7.2). 

CISTAR. 

CTOT. 

OOTE. 

0£  • 

ORINT  . 

EOBSTR. 

FEEINV. 

FEEOPS. 

FEER. 

GSE. 

IREL  . 

ITRUNC. 

MHOOLO. NAME! 3.60). 

OPS. 

PAYINV. 

PAYOUL . 

PAYR. 

PE. 

PMP. 

PMR. 

P0UERI6). 

PU. 

PUR! 60). 

OCU. 

OCR. 

R0L0I6O). 

SA6HHT. 

SATAOP. 

SATINV. 

SATR. 

SEIP. 

SEIR. 

SKTAU!8). 

^ 

SSRELI 6 ) . 

SUBEI7). 

SUBTI 7). 

SUBUEI 7 ) . 

SUBUP!7). 

TA. 

TAUI 6.6 ) . 

TB. 

TC. 

TE. 

TF  . 

TOOLR. 

TOOLU. 

TOTOP.S. 

TRUNC. 

TS. 

TTT. 

VOLUME! 6) . 

VOL! 60). 

HEIGHT! 6). 

XLTOT. 

XMEH. 

XMEINV. 

XHEL. 

XMEVL. 

XMEN. 

XMEHT  . 

' ■ t "" 

XVEST 

DIMENSION  REf  7).RTl 7 ).RPt  7).BEI 7) .BT( 7).BPI 7). 

Xt 7).FP( 7) .FT( 7) .FEt 7) .NCONF( 7 ) .NEQU t PI  5 ) . 


CONT , WJ  PG  3 

PS..2.flE 2£ 


10-49 


CONT.  ON  PC  4 


PG  3QF 25. 


10-50 


FRE  : 0.887S  ♦ 0.1125»FQ 

■ ’fr  . ..ZT 

FRT  =0.3  *•  0.7«F0 

1 ■ 


-<r  DO  TO  I no. 120.130. t40.tS03»J  I 


isdidliiliS: 


Ic  SET  SCALE  FftCTORS  FOR  S a C CRTRIQP  ITEflS~] 


110  , 

/DO  TO  1 170.170 tl II .I70tl70.l70#l70»l ISil 1 1 •170*170» 

1 \ 111. 170. 170.170.170.170.115.170. 170.170. 170) .ICMS  | 

in 

|:T:1 

o 

■ISBIlill 

iin|inim|in|iiB|fn|fn|in|m^^H 

l|:I:ll|:T:||l:I4ll:I  lIl  T lli  I III  T ill  > 

[in 

■H 

Ifni 

ifc  ifc 

CONT.  ON  PC  6 


PG  5.Q£ 25. 


932 


10-52 


10-53 


I CO 


1 


TO  170 


CONT.  ON  PC  8 


PC  7 OF 


J&. 


10-54 


10-56 


c SE T SCBLE  PBCTQRS  FOB  E.P.  CaTBLOP  ITEHS 


TIT 

[B5 
s& i 

c:< 


CO 


COMT.  ON  PC  U 


PS  lillE 25l 


10-57 


B6 


TN^Fl5).E0.2-0R-WC0Nf  IS).E0.4.0R.HCDNFlS).Egj 

T 

I GO  TO  170  >• ^ 


XFT  = 6. 


C ■■  COMPUTE  DESIGN  ENGINEERING  COST*  I OE  OR  CQHPE ) 


COST!  1 .n  = COST(  I tl  )«P1«FREbIOOO-«XFE 


COMPUTE  TEST  AND  EVALUATION  COSTt  t TE  OR  CQMPT 1 


COSTI 2tl  IsCOSTt  2.1 1 «P I »FRT« 1 OOP . «XF T 


C »«  SUB-TOTAL  ENGINEERING  COSTS 


COMPRtl):  COST(I.I)  ♦ C0STI2.I) 


C «•  COMPUTE  COMPONENT  AVERAGE  UNIT  PRODUCTION  COST.IPU  OR  CQMPUP) 


COST1  3.1  3 = 1 .277«P5«OP««-948«PUtOOO.»XFP/0 


C ■■  COMPUTE  COMPONENT  CUM  AVG  5 UNIT  PROD.  COST 


COHPSPin  = 20Q.«  PS  ■ 05>»0.848  ■ PI  ■ 1 .277«XFP 


C COMPUTE  COMPONENT  AVERAGE  PRODUCTION  ENGINEERING  (PE.QR  C0HPUE3 


I 


[TQsTi4,n  = CUi0P*«--<85-t.)«Pl>F«E"t000««’<FE/g  J 

Pc ..  rnMPUTE  COWPONENT  CUH  BVQ  S PROD.  EN&.  COST' 

I - = “ 

C0HP5EI  n = 200.  « Cl  * 

CQMPui  n s cosn3.t)  * cosn4.n  — 

I DO  TO  185  ^ ^ : 


tJtm  I.  -Ml  i ■<  — 

cownwuE 


DO  183  JJJ=1 «5 


COST! JJJ>I 1 ; 0.0 


CONT  I'NUE 


IFI IDE8UC.E0.1 } 


P.M.I  9000.. cost.  = 


1 = 1 * 1 
rSo  TO  100 

C ■■  COMPUTRTIOKS  fOR  SUBSTSTEM  COSTS  BASED  ON  COST  ESn«flTINC^ 
C .«  ftELflUOUSHlPS  rC.E.R.-S)  


H‘=  0 


CONT,  ON  PC  13 


10-59 


MEODUCjKnjT^W  THS 
ORMAL  f AGE  fe  'PQG^ 


CONT.  ON  PG  U 


10-60 


CONT.  ON  PC  15 


Pr.  UIP  25 


10-61 


10-62 


10-65 


CONTINUE 


SUM  SU8-T0TflLS  BT  SUBSYSTEMS  OF  CBTRLOG  ITEMS 


IJ  = I 


C(WT.  ON  PG  21 


10-67 


CONT.  ON  PG  22 


PG  20F 25. 


10-68 


iRii 


PRINT  9000.SUB£.  n.SUBTI  I ).SUBRj  { j :|g  j j M .SUBSPI  M 


E 


CONTINUE 


fORHAT  latlXtFll. 


TOTAL  COSTS  FOR  BASIC  SPACECRAFT 


: OE  * SUBEt  1 ) 

TE  = TE  * suan  1 1 
SrSR  = SrSR  «•  SUBRI  1 9 
PE  : PE  « SUBUE(I) 

PU  = PU  ♦ SUBUPf  I } 
SYSU  : SrSU  * SUBU( I ) 
PSE  : PSE  » SUB5EI I ) 
PSP  r PSP  ♦ SUBSPI  I ) 


CONTINUE 


COflPUTE  TOOL  I NO  AND  TEST  EQUIPHENT 


C COMPUTE  quality  CONTROL 


OCR  = .OISbOE  * .14bTE 
QCU  = .OISbPE  » .14bPU 
OCS  = O.OISbPSE  ♦ 0.14«PSP 


COMPUTE  SYSTEMS  ENOINEERINO  AND  INTEORATION 


SEI 

R = .32bOE 

.27«TE 

SE 

IP  = .32«PE  ♦ 

.22»PU 

SE 

IS  : 0.32bPSE 

» 0-22«PSP 

COMPUTE  PROORAM  MANAOEMENT 


Cl 


F&SE  = D.409 
CO  TO  440  : 


TwC^Fi  5)  .£0.1  -OR.  XC0WFm.EQ.3-  .OR.  HCONFIS).EO, 


CONT.  ON  PC  24 


10-70 


10-71 


a 


SUfiROUHNE  PRMT  t IERRtNEOOH»»NRCCEP«WCOWn 


THIS  IS  the  output  SUBROUINE  which  controls  THE  PRINTED 
OUTPUT  OF  HMr  ACCEPTABLE  DESIGN 


COMMON  /USERI/ 

APOGEE. 

COHRAT . 

OIAMAX. 

EE0WTI9). 

EPME. 

EOMIWT. 

EQMIXL. 

EOMITL. 

EOMtZL. 

E0M2HT . 

E0M2XL. 

E0M2TL. 

E0M2ZL. 

FE. 

lAGNCr. 

lOEBUG. 

ISATOR. 

MB12SH. 

OPTEMP. 

ORBINC. 

PERIGE. 

MICRO. 

REIME. 

SPEC(6). 

SPECl . 

XDUMl . 

XCGSAl . 

XMER. 

XMEU 

COHHON  /USERP/  IPRINT , I T ITLE 


COMMON  /BTUN/  ACSSN. 

ACSHP. 

ALT. 

AREA. 

BATCAP. 

BITRATI2). 

CLIFE. 

CONVHT. 

0 ■ 

0 T . 

OX. 

or. 

OZ. 

EOBLG. 

E08SI0. 

FC. 

FF. 

harnnt. 

HPT. 

HTPIPE. 

HTPT, 

HTRPRS. 

HTRPNR. 

IBTLOC. 

LMBOD. 

NC. 

OMEGS. 

PASSTR. 

PJ. 

PL. 

PLMIN. 

POCNHT. 

RADA. 

RAOAB. 

RAT. 

RJ. 

SABOLG. 

SATLG. 

SATTHT. 

SATHT. 

SRTXCG. 

SATYCG. 

SATZCG. 

SAIXL. 

SAIYL. 

SAIZL. 

SIDE. 

SYSLB. 

THCMNT. 

THRUSTI2). 

TI . 

TNKNT. 

TPRIM. 

VB. 

VCHP. 

VOL. 

NATE. 

NB. 

NBT. 

NT. 

XJ. 

XNZERO. 

YJ, 

ZJ 

COHHON  /CHOSE/ 


COSTI5.60). 
NCHOSEI60). 
THHI 4.60] 


OPIAt 11.60). 
REL  I 6.60). 


ICHOSEI 60). 
SKO(7.60). 


COMMON/PRTCOM/  ACCRCY. 

AM. 

AN. 

BF. 

BS. 

COPIi 7.2). 

CISTAR. 

CTOT. 

DOTE. 

DE  f 

ORINT. 

EOBSTR. 

FEEINV. 

FEEOPS. 

FEER. 

GSE. 

IREL. 

ITRUNC. 

MMOOLO. 

NAME! 3.60). 

DPS. 

PAYINV. 

PAYQUL . 

PAYR. 

PE. 

PMP. 

PMR. 

P0NERI6). 

PU. 

PNR( 60). 

QCP* 

OCR. 

ROLOC60). 

SABMNT. 

SATAOP. 

SATINV . 

SATR. 

SEIP. 

SEIR. 

SKTAUI 6). 

SSREL16). 

SUBEI7). 

SUBT17). 

SUSUEI 7). 

SUBUPI7). 

TA. 

TAUI 6.6) . 

TB. 

rc . 

FE  • 

TF. 

TOOLR. 

TOOLU. 

TOTOPS. 

TRUNC • 

TS. 

T, 

V0LUMEI6). 

VOLI 60) . 

NEIGHTI6). 

XLTOT. 

XMEH. 

XMEINV. 

XMEL. 

XMEVL . 

XMEN. 

XMENT* 

XVEST 

01  HENS  I ON  lERRf  7).NEQUlPt  5) .NCONFI  6) 
DIMENSION  ITITLEI 13) 

REAL  PIMOOLO 
HnOOLO=NMOOLO/720. 

TRUNC=TRUNC/720. 


CONT.  ON  PC  3 


PG.2QF. aa 


10-74 


fORHAT  116H  DEFINITIONS  - -•/ 
36HSTABIUZRTION  AND  CONTROL 
N tNC0NFI2n./.7Xt23HNC0NFI  n 
COLO  &AS./.7X#Z2MNC0HFI  n = 2 I 
ROPELLANT ./.7X.28HNC0NFI 11:3 
S BIPROPELLANT  ./ .7X  .37-HNC0NF( 
SHCONKUNICATIONS  (NCONFM))./ 
/ n.W.'S.13X.42HNC0NFI 4)=1  IS 


*25H  CONFIOORATtONS  ( NCONF ) ./ .SX . 
IHCONFf  U ).I5X.3lHAUXlLlRRr  PROPULSIO 
rl  IS  DUAL  SPIN.28Xt22HNC0NF(2):l-  IS 
S TAN  SPIN.29X.2BHNC0NFI Z):2  IS  NONOP 
IS  NASS  EXPULSION. 23X.26HNC0NF(2)=3  I 
l)r4  IS  HASS  EXPULSION  U/  CH0-S.12X,2 
.7X.38HNC0NFI  l)cS  IS  HASS  EXPULSION  U 
SEPARATE  UPLINK  ANO  OOHNL INK ./ .SX  .46 


HDATA  PROCESSING  ANO  INSTRUHENTATION  ( NCONFf 3)) .7X.42HNC0NFt 4):2  I 
S UNIFIED  LINK-COHHON  ANTENNAS. 7X. 39HNCONFI 3):I  IS  OEMERAL  PURPO 
SE  PROCESSOR. 12X, 44HNC0NFI 4)s3  IS  UNIFIED  LINK-SEPARATE  ANTENNAS./ 
.7X.39HNC0NFI 3):2  IS  SPECIAL  PURPOSE  PROCESSOR. 12X,48HNC0NF!4):4  I 
S UNIFIED  LINK-COHHON  ANT  ♦ OOHNLINK  ./.5X.27HELECTRICAL  PONER  I NCO 
NFISn.26X.SOHNCONFI4):S  IS  UNIFIED  LINK-SEPARATE  ANT  ♦ OOUNLINK./ 
,7X  .44HNC0NFI 5)  = 1 IS  SHUNT  REGULATION  - PADDLE  HTO . .SX .2SHVEH I CLE 
SIZING  (NC0NF(Sn./.7X.42HNC0NFlS)  = 2 IS  SHUNT  REGULATION  - BOOr  HT 


.,9X,22HNC0NF(6)=I  IS  CYL INOER./ .7X .44HNCONFI S )=3  IS  SHNT  ♦ OISCH 
REG  - PADDLE  HTD- .7X . I7HNC0NFI B )=2  IS  8OX./.7X.42HNC0NFI S 1=4  IS  S 
NT  ♦ OISCH. REG  - BODY  HTO . .9X .20HNCONF I 6 ) = 3 IS  SPHERE)  


PRINT  9011 


FORHAT- (7X.44HNC0NFI5)=5  IS  SERIES  LORO  REG-  - PAOOLE  HTD-.SX.llHR 
£LIR8ILITY,/.7X,42HNC0NFIS)=6  IS  SERIES  LORD  REG.  - BODY  HT0-.9X.4 
SHREDUNDRNCY  CONFIGURATION  = 0 IS  SINGLE  SYSTEH,/ .58X.43HREOUNOANC 
Y CONFIGURATION  = I IS  DUAL  SYSTEH) 


PRINT  9001 
PRINT  9012 


FORHAT  I18H  HESSAGES  ( I ERR ) ./ .SX .25HSTABI L I ZAT I ON  AND  CONTROL. 2B 
X.20HAUXILIARY  PROPULSION./ .7X .29HIERR  = 0 HEANS  NO  HESSAGES. 22 

X.27HIERR  = 0 HEANS  NO  HESSAGES. /.7X.49HIERR  = I HEANS  HAX  ALL 

OMABLE  SYS.  ERROR  UNSAT . ,2X .SOHIERR  = I HEANS  CYCLE  LIFE  OF  RTTIT 
UOE  CONTROL  . / ,7X .42HIERR  = IX  HERNS  HAX  RATE  ERROR  TOO  SHALL 
,25X.22HTHRUSTERS  IS  TOO  SHORT  ./. 7X  . 42HI ERR  = IXX  HEANS  3-AXIS  HH 
EELS  ACCEPTABLE. 9X.52HIERR  = 10  HERNS  CYCLE  LIFE  OF  TRANSLATIONAL 
THRUSTER. /.7X.42HIERR  = IXXX  HEANS  OBL  GIHB.CHGS  ACCEPTABLE  .2SX . 1 2 


10-75 


HEPItOD\]CIBILrrY  OF  THS 
ORIGINAL  PAGE  IS  POOR 


HIS  TOO  SHORT. /.SX.aSHOATR  PROCESSING  RNO  IN8rRURENT.flTI0N.l8X^49HI 
ERR  = H HERNS  CTCLE  LIVES  OP  BOTH  THRUSTERS  RRE ./ .7X.30HIERR  = 

0 HERNS  NO  HESSR&ES.37X,.9HT00  SHORT ./ .7X  ..3IHIERR  = I HERNS  H 
UX  RE0UIRE0.18X.7HTHERHRL./.7X.41HIERR  s 10  HORO  LENGTH  GREATER 
THAN  2S6.10X.  49HIERR  : IXXXXXXXXX  HERNS  BRTT  RAD  AREA  IS  SUPPLIE 
0./.7X.34HIERR  : 100  BIT  RATE  IS  TOO  LRRGE.35X.8HIN  RA0RB./.7X.3 

BHIERR  = 1000  SPEC. COHO. SrNC.FLG  NE  0.15X.  SIHIERR  s XIXXXXXXXX 


PRINT  9013 


PORHRT  I7X.26HIERR  s 0 HERNS  NO  HESSAGES.43X.1SHSUPPLIE0  IN  PCH./. 
7X.46HIERR  : 1 HERNS  BOOT  HOUNTED  SOLAR  ARRAT  LENGTH .SX *SOHI ERR  : 
XXXIXXXXXX  HERNS  I SOTHERHRL I ZER  IS  REQUIRED. /.16X.Z8HEXCEE0S  EQUIP 
HENT  8Rr  LENGTH. 14X. SIHIERR  : XXXXIXXXXX  HERNS  DIODE  HEAT  PIPE  IS 
REQUIRED. /.76X.12HI 2 REQUIRED). /.58X. SIHIERR  = XXXXXIXXXX  HERNS  CO 
NV.  HEAT  PIPE  IS  REQUIRED ./ .S8X .48HIERR  = XXXXXXIXXX  HERNS  OSR  RRO 
IRTOR  IS  REQUIRED. /.S8X.50HIERR  : XXXXXXXIXX  HERNS  CONV.  RADIATOR 
IS  REQUIRED. /.58X.48HIERR  = XXXXXXXXIX  HERNS  HEATER  POWER  IS  SUPPL 


IE0./.76X.9HIN  HTRPHR./.S8X.49HIERR  : XXXXXXXXXl  HERNS  RADIATOR  AR 
Efl  IS  SUPPLIED. /.7SX.7HIN  RADA)  


PRINT 


PRINT  9999.ITITLE 


FORHAT  I10X.13A6) 


10-76 


CONT.  ON  PG  9 


10-80 


10-81 


ICONF  = NC0NFt4) 


COWT.  OM  PO  tl 


10-82 


10-83 


10-84 


10-85 


KEPRODUCIBILITY  OF  THE 
iptMKMM..  5AGE  IS,  FOOR, 


PRINT  175 


CONT.  ON  PC  15 


10-86 


10-88 


10-89 


10-90 


PRINT  228.TOOLR.TDOLU 


CONT. 


ON  PG  20 

PG  lay  38 


10-91 


10-92 


10-93 


Ej^Wl-WBiLfTY;  01’- 


10-94 


CJUCI 


PRINT  9000 


IF  I IPRIMT.LE.n 


CONT.  PC  24 


10-95 


10-96 


PRINT  t026.SUBE(  i)*SUBTi  n»3U9UPt  H.SUBUEI  1 ) 


FORNfln  24X.1-GHDES.  END.  CAST  .FI  1 .1  .iOXt t7HTESr  . EVAL.  C0ST.4X.F 
n.I  ./.24X.16HUNIT  PROO.COSr  .Fit  .i  .'10X..17HUNIT  ENA.  C0ST.4X.F 
11  .1) 


PRINT  102B.SSREU1) 


FORNAT.I  24X.1  IHREL I ABILITY. 5X.F  11  .4) 


C PRINT  S»C  SCHEDULE 

C PRINT  S»C  SCHEDULE 


PRINT  1030.( TAU( 1 .J).J:1 .S) 


F0RRRTI24X.  BHSCHEOULE #/ .2CX .27HC0HP0NENT  OEVELOPHENT  TIME  .F5.1.3 
7HIN0NTH)  COnPONENT  DUAL  IF ICAT ION  TINE  .F5. 1 »7HI NONTH) ./ .26X .27HSU 
BSrSTEH  OEYELOPHENT  TINE  .F5.I .37HI NONTHl  SUBSYSTEN  QUALIFICATION 
TINE  .F5.1.7HIN0NTH)./.26X.4SH$Y5TEN  OEVELOPHENT  AND  FLIAHT  REAOIN 
ESS  TINE  .F5.1  .7H(H0NTH)} 


PRINT  I032.IERR(11 


F0RnAT(24X.4HlERR»SX*I10) 


PRINT  A.P.  SUBSYSTEN  INFO 


PRINT  119 
ICONF  = NC0NFI2) 


AO  TO  f 1034. 1036. 10381.IC0NF 


||iirj|l4ll 


CONT.  ON  PC  27 


10-98 


PRINT  129 


CONT.  ON  PC  28 


10-99 


10-100 


ss?s.%^ 


10-101 


10-102 


10-103 


10-104 


10-105 


10-106 


IJ  = IK  f 1 

■ T 

CONT,  ON  PC  36 


10-107 


10-108 


10-109 


I SUBROOTIWE  FILTER! NCOWPtlCODE)  1 

filter  checks  for  COHPRTIBLE  COUBINflTIONS  OF  COWFIOURRTIONS 
fi  niHUS  I IS  RETURNED  FOR  UNflCCEPTftBLE  COHBItiRTIOMS 
NCONF  IS  RRRflY  OF  CONF lOURRT IONS 

I CODE  IS  CODE  RETURNED  


1 DIMENSION  NC0NFI6)  | 

f . 

COMMON  /USER!/ 

ALPHA. 

EA. 
OMECR . 
POOTST . 
PHIFOV. 
THETMX. 
XN. 
2N 

AX. 
EANT. 
PDOTAV. 
PDOTX. 
PHIRX . 
' THOLD. 
XNN. 

AY. 
EPl. 
POOTRX. 
PDOTY. 
PHIRY, 
TL  . 
XNNN. 

AZ. 
K . 

POOTRY . 
POOTZ. 
PHIRZ. 
TPHIN. 
XNU* 

OPHI. 
MANY* 
POOTRZ. 
POOTO. 
TACCEL . 
TSMALL . 
YN. 

^ 

COMMON  /USERS/ARRflYNl t 1 t3) 
TPRFL 

. BTRMX. 

NHSEO. 

OPSHS. 

SCSFL. 

^ 

COMMON  /USER4/eulOTHi 2) . 

NADIR. 

FREOI 2). 
NET 

FREOR* 

lOPTCMI 3). 

LINK. 

h 

COMMON  /USERl/ 

lOEBUC. 

MICRO. 

APOGEE. 

EOMIHT. 

EQM2XL. 

ISATOR. 

RELME. 

XMER. 

COHRAT. 
EOHtXL. 
E0H2yL> 
MB12SH. 
SPECi 6). 
XMEU 

DIANAX. 

EOMIYL. 

E0M2ZL. 

OPTEMP. 

SPECt. 

EEOHTS  9). 
EQMIZL. 

FE. 

ORBINC. 

T . 

EPME. 

E0H2UT, 

lAGNCY. 

PERIGE. 

XCCSAl. 

IC0DE=0 

] 

C 

CHECK  S 

AND  n 

7 

CCWT.  ON  PC 


PQ  I Of Sl 


10-111 


10-112 


C lOPTCHin  IS  RfiNt>IMGIlrrES).I0PTCHl2)  IS  SEPPRfiTE  LIXK.RHD 

C lOPTCmS)  IS  SEPARATE  ANTEHNAS  


10-113 


IC00E=-1 


10-114 


10-115 


10-118 


10-119 


1 


SUBPOUTINE  SnvEI  I IN .N I N .MOURT. . t TEST . I ENOOB  ) 


THIS  SUBROUTINE  SAVES  I CHOSE .NCH05E >flNO  RNV  PORTIONS  Of 
THE  DATABASE  REQUIRED  BY  LATER  SUBSYSTEHS  OR  ROUTINES 


COMMON/PRTCOH/  ACCRCY, 

AM. 

AN. 

BF. 

fiS. 

C0PII7.2I. 

CISTAR. 

• CTOT, 

DOTE. 

OE. 

ORIMT. 

EQBSTR, 

fEElNV* 

FEEOPS. 

FEEIf. 

OSE. 

IREL. 

ITRUNC. 

MMDOLO. 

NAME! 3.60)  . 

OPS. 

PAYINV. 

PAYOUL. 

PAYR. 

PE. 

PMP. 

PMR. 

POHERf  6) . 

PU. 

PHR(60). 

OCP. 

OCR. 

R0L0I60). 

SABMNT. 

SATADP. 

SATINV. 

SATR. 

SEIP. 

SEIR. 

SKTAUr  6) . 

SSRELI6). 

SUBEI 7 ] . 

SUBT(7). 

SUBUEI7).  SUBUPI7). 

TA. 

TAUr  6.6). 

TB. 

TC.  TE. 

TF. 

TOOLR. 

TOOLU. 

TOTOPS.  TRUNC. 

TS. 

TTT. 

VQLUKEI6). 

V0LI60).NEICHTI6). 

XLTOT. 

XMEH. 

XMEINV. 

XMEL.  XMEVL. 

XMEH. 

XMEHT. 

XVEST 

DIMENSION  I0ATAB(SS.9O) 
EQUIVALENCE  { lOATAB .OATAB1 


10-120 


10-121 


10-122 


1 SUBROUTINE  THRML 

1 lERR.NCONF  ) 

COMMON 

/USERI/  APOOEE. 

COMRAT  . 

OIAMAX.  EE0UT<9). 

EPME  , 

EOMIWT. 

EOMIXL. 

EOMIYL, 

EOMIZL . 

E0M2WT . 

E0M2XL . 

E0M2YL. 

E0M22L. 

FE  . 

.lAGNCY, 

lOEBUG,  I5AT0R. 

M812SH. 

OPTEMP. 

ORBING . 

PERIGE. 

MICRO,  RELME. 

SPEC! 61 . 

SPECl , 

r . 

XCGSAI . 

XMER. 

XMEU 

^ TT— 

COMMON 

/BTWN/  ACSSN. 

ACSHP. 

ALT, 

AREA. 

BATCAP. 

BI TRATI 2 1 . 

CLIFE. 

CONVUT.  • 

0. 

01. 

OX  . 

OY. 

OZ. 

EOBLG. 

EOBSID. 

FC  , 

FF  . 

HARNUT. 

HPT  . 

HTPI'PE  . 

HTPT  . 

HTRPRB  . 

HTRPHR,' 

IBTLOC, 

LMBOD. 

NC. 

OMEGS. 

PASSTR. 

PJ.  ' 

PL  . 

PLMIN. 

pocnut; 

RADA, 

RAOAfi . 

RAT  . 

RJ. 

SABOLG. 

SATLGv 

SATTUT  . 

SATHT  . 

SATXCG. 

SATYCG, 

SATZCG. 

saixl. 

SAJYL. 

SAIZL  . 

SIDE, 

SYSL8, 

thgmnt , 

THRUST! 2 1 . 

TI  . 

TNKWT.  ■ 

TPRIM, 

VBi  ' 

VCHP. 

VOL. 

RATE. 

UB. 

WBT 

NT  . 

XJ. 

XNZERO. 

YJ, . 

ZJ 

COHHON  /CHOSE/ 


C0ST(5.601 . 
KCHOSEf  601 • 
rHRROBI 4,601 


SKD17,60:l. 


OiRENSION  HC0NFI61 
REftL  LNCTH 


OflTfl  SIOMfl/0.1714E-08/.0S/4  4 2 .O/ .EM SS/60 .0/ ,flL 800/ 1 55 .0/ .CONS T/ 1 . . 
5/. PIE/3. 1415926535/ 


aaaaRaaaaBaaaBaRaaaaaaaaaaaBaaaaBaaaaaRaaaaBaaaBaaaaaRaaaaaaBaaaaaaaa 

B SUBROUTINE  THRHL  USES  B RE.THOOOLOOY  FOR  SIZING  THE  THERMAL  aa 

a CONTROL  SUB-SYSTEM  FOR  A VARIETY  OF  SPACECRAFT.  THIS  METHODOLOGYbb 
a DETERMINES  SIZE  AND  PERFORMANCE  OF  THE  THERMAL  SUB-SYSTEM  aa 

at 

BaaBaaaaaaBBaaaBaaaaaaBBfliaaaaaaaaiaaaaaaaaaaa'aaBBaaaaBBaaaaaaaaaaaaa 

a A glossary  of  VARIABLES  FOLLOWS  - - ■■ 


IS  AS  FOLLOWS  - - 

U = USER  INPUT.  OB  = DATA  BASE.  INT  : INTERNAL 
0 : OUTPUT,  I : INPUT  FROM  MAIN  OR  OTHER  S/S 

iBBaBaBBBBaaBaaaBaBBBaBaaBaaBBBBBBaBBBaaBapaBaaaaaaai 

NAME  CODE  UNITS  (DEFAULT}  DESCRIPTION 


oonrjnorjn 


I 


OS 

RROfl 

RRORB 

RAT 


442.0  eru/IHRaFTi«23 
I FTi*2) 


SOLAR  CONST-.  B« 


'Tib2)  RA01.AT.0R  area  ma 
FTbnZ  BATT. RAO. area 
FT««2  TOTAL  RAO.  AREA  iia 


SATLO 

I 1 VS) 

INCHES 

SAT.  LENOTH  >■ 

SATRAD 

I (VS) 

INCHES 

SAT.  RADIUS  aa 

SICHA 

INT 

0.1714E-8BTU/I HR«FT2aR4) 

BOLTZHANN  CONSTaa 

THRHOB 

I 

thermal  ORTA  BASE 

THAX 

INT 

rOB) 

DECREES  R 

HRX  TEHPERATUREaa 

THAXB 

INT 

BATT. 

HRX.  TEHP.  ea 

THIN 

INT 

lOB) 

DECREES  R 

HIN  TEHPERATUREaa 

TMINB 

INT 

BATT. 

niN.  TEHP.  aa 

VAR. CONO. HEAT  PIPE 


r>r>oo 


C . R 
0 0 H A 
S N E D 
R V A I 


c 

ft 

H 

E 

H 

H 

T 

A 

ft’ 

c 

ft 

E 

'P 

R 

E 

E 

R 

R 

E 

T 

a 

c 

ft 

A 

C 

R 

A 

A 

A 

A 

R 

0 

ft 

c 

ft 

T 

n 

A 

T 

T 

0 

0 

R 

c 

ft 

R 

L 

I 

I 

P 

ft 

c 

ft 

A 

P 

N 

I 

P 

P 

A 

A 

0 

A 

ft 

c 

ft 

0 

I 

A 

2 

I 

I 

T 

T 

u 

R 

ft 

c 

ft 

A 

P 

S 

£ 

P 

P 

0 

0 

E 

E 

ft 

Cs  BESREERRRA  ■ 

c ■ . ■ 

c a lERR  :XXXXXX'XXXX  a 

C a ■ 

C a UHERE  0 REAMS  NO  SUCH  REOUIREHENT.  OR  - a 

C a 1 HERNS  HE  HAVE  THIS  REOUIRENENT  a 

C a a 

C aaaaBaaaaaaaaaaaaeaaBaaaaBHaaaaaaaDaaaaaaaaaaaaaaaaaaaaaaaaBaaaaaaaaaa 


C BeaBBaaaeaaeaaaBoaBaBaflaaaBaBaaaBaBaaBagaaaaaBaaaBBaaBsaaaaaaaaaaaaaaa 
C BaBaaBBBBaBBaBaaBBaaBsaaaeaBaaaaoaaaBBaaBaaaaaitaBiiBaBBBaaBBBaaflaBaaaaa 

C a ■ ■ 

C aa  initialization  FOLLOHS  - - 


RR0A=0. 

RRDA8=0. 

RRTzO.O 

HTRPUR=0. 

HTRPRBzO. 

HPTrO. 

HTPIPEzO. 

VCHP=0. 


HTPTrO. 
THAX=1 .E*20 
THIN=-1 .E20 
PHAX:0. 
PHIM=0.0 
ETRT:l  .0 
1:0 

SRTRA0:.5b 


SEARCH  FOR  HINinAX  TERP)  AND  NAXIHIN  TEMP).  AND 
ACCunULATE  THE  POUER  lEXCLUDINO  XHTRS  AND  BATTERIES) 


10-127 


r>nr> 


IF  (ALT. LT. 500.1 


10-131 


CONT.  m PC  12 


10-133 


EE^RODUCIBILrny  .OF  THE 
ORIGINAL  PAGE.B  PO(Ht 


InciiMii 


• OE.TEftntNE  ISOTHE^nflLlZER  HEAT  PIPE 


HTPIPE  = r 0HAXoLtlC-rH)/.3,4l 
IERR=llOllOn 


Wi\ 


rC0NF=NC0NFl 1 ) 


.220.220.220).  ICOMF 


C •«  ORBIT  LT  SOO.  ORBITAL  INCLINATION  LE  30  OEOREES  ANO. 
C am  SUN  ORIENTED  AND. 

C SPIN  STABILIZED  (EOUATION  2. 1.1. 2) 


ALPHR:D.0S 


.73 


C • OETERHINE  RADIATOR  AREA 


RADA=OHAX/r ( SIDAAaEPSL0NBTnAXBfl4)-( EHISSpEPSLON)-I..5«ALBDO*ALPHA) ) 


C • OETERHINE  HEATER  POHER 


HTRPNR:! .2Sat ( S I DNApEPSLONbRADApTHI Nbb4 ) -QNI N ) 


C » DETERMINE  HEAT  PIPES 


HTPIPE:! QHRXbLNGTH)/3:41 
IERR=10011 


c 

ORBIT  LT  SOO.  OBITAL 

INCLINATION  LE  30 

DEGREES  AND. 

R ■ 

C ■" 

SUN  ORIENTED  ANO. 

RO 

c ■■ 

3-AXIS  STABILIZED 

lEOUATION 

2.1 .1  .1) 

SR 

i 


ALPHA:0.08 


EPSLON=0.73 


C ■ OETERHINE  RfiOlflTOR  RRER  , 


RflDR:OHBX/l ( S[QHfl»EPSL0W«THflX«a4 )-l EM  I SS«EPSlOW 1 - ( RlBDO>ftLPHfl) ) 


a DETERMINE  HEATER  POWER 


HTRPHR=l  .?Sal  1 SIGHn«EPSL0WaRRDA»THIWa4  )-OH[W  ) 


a OETERHINE  HEAT  PIPES 


HTPIPErl OMRXaLNOrH)/3.4l 
IERR=lOOtl 


HERE  IF  ORBING  OT  30 


00  TO  1240.270.270).  ISRTQR 


imiifll 

lirptILuil 


IC0NE=NC0NFI 1 ) 


GO  TO  t 250.2S0.26Q.260.260) . ICONF 


Imiinifni 


c 

Kfl 

ORBIT 

LT  SOO.  ORBITAL 

INCLINATION  GT  30  DEGREES  AND. 

• a 

c 

■ V 

EARTH 

ORIENTED  AND. 

lEOUATION  2.2.3.21 

aa 

c 

■ ■ 

SPIN 

STABILIZED 

RB 

I RLPHR=.08 

■ I -- 

EPSLON= .73 


CONT.  ON  PC  U 


10-135 


10-136 


RLPHfl=0.08 


EPSL0N=0,73 


m OETERniNE  RAOIRTOR  RREA 


CONT.  ON  PG  16 


10-137 


10-138 


RflOi)  = QRRX/l  Sianna€PSL0NMrnRX»a4) 


a OETERHINE  HERTER  POHER 


HTRPUR  = 1 .2Sal  I SIORRaEPSLONaRRORaTHINiBX  l-OMN) 


■ OETERniNE  HERT  PIPES 


HTPIPE=( 0RRXBLN0rH)/3.41 
lERRrlOlli 


RLPHfl:0.30 


C ■ OETERNINE  RROIRTOR  RRER 


RROR  = ( Z.bONRX)/I  SIONRiiEPSL0N«rNRXB«4) 


■ OETERHINE  HERTER  POUER 


HTRPMR=1 .2Sb( ( SICNRaEPSL0NaRR0RBTHINaa4/2. l-QNIN) 


a OETERHINE  OIOOE  HERT  PIPE  12  REO-0) 


HTPIPEriaHRXaLNOTH 1/3.41 
lERRsllOlU 


ICONF=NCONFI 1 1 


GO  TO  [ 350i360. 370. 370. 3601.  ICONF 


lin|in|iini|nni|ffni| 


CONT.  ON  PC  18 


10-139 


10-140 


non 


10-141 


10-142 


SUeROUTINE  conn  I IPIC.tERR.tTER.RCONF.lCHOSE *NCH0SE ) 
INTEGER  RESET. SEO.SSS. GRP 
REAL  LnflRG.NF.NOOLOS.tBER 


01  HENS  I ON  IPICOI.tCHOSEI  11  l.NCHOSEf  11  ) *KP  I Cf  9 ) .NCONFFS  ) . 
KCHOSEI n 1.PU(2).ISPFLGI2).J2SRVEI2) 


OINENSION  SIGN0II2) 

.LNARGI 2) 

.TCL0SSI2) 

.GTI2).N00XI2)  1 

OINENSION  BERI 14.3) 

.IBERt 14 ) 

.BESSJI 2). 

LINPICI 9) 

CONNON  /USER4/6UI0THI 2) . 

FREOXI 2) 

. FREOR. 

lOPTCni 3). 

LINK. 

NAOIR. 

NET 

CONNON  /tJSERl/  APOGEE. 

CONRAT. 

OIANAX. 

EEQUTI 9). 

EPNE. 

EQKIHT. 

EONIXL. 

EONIYL. 

EONIZL. 

E0N2HT. 

E0N2XL. 

E0N2YL . 

EQN22L. 

FE. 

IflCNCY. 

tOEBUG.  SEO. 

NB12SH. 

OPTENP. 

ORBINC. 

PERIGE. 

NICRO.  RELNE. 

SPECI6). 

SPECl  . 

xouni . 

XCGSAt . 

XNER. 

XNEU 

^ 

CONNON  /BTHN/  ACSSN. 

ACSUP. 

alt. 

AREA. 

BATCAP. 

6ITRATI2). 

CLIFE. 

CONVUT. 

0. 

OT. 

DX. 

OY. 

02. 

EOBLG. 

EOBSIO. 

FC. 

FF, 

HARNNT. 

HPT. 

HTPIPE. 

HTPT. 

HTRPRB. 

HTRPNR. 

IBTLOC. 

LNBDO. 

NC. 

ONEGS. 

PASSTR. 

PJ. 

PL. 

PLNIN. 

POCNNT. 

RAOA. 

RflOAB. 

RAT. 

RJ. 

SABOLG. 

SATLG. 

SATTMT. 

^ 

SATUT . 

SATKCG. 

SATYCG. 

SATZCG. 

SAIXL. 

SAIYL. 

SAIZL. 

SIDE. 

SYSLB. 

THCNUT. 

THRUSTI2J. 

TI . 

TNKUT. 

TPRIN. 

VB. 

VCHP. 

VOL. 

NATE. 

MB. 

HBT. 

NT. 

XJ. 

XNZERO. 

YJ. 

2J 

connoN  /oecon/ORTflBiss.iooi.ioai aoi 


EQUIVALENCE  IJl.KPICm).  t J7  .KPt  Cl  8 ) ) . IJ4.KPICI7n.  IJS.KPICIB)) 
. IJ6.KPIC19n 


DATA  SIGNOI  /lO-.IO./.  LHARG  /S..6./.  SLANT  /-I.EIO/. 
GTOT  /-l.ElO/.  GR/-1.EI0/.  T/-I.E10/.  NF  /-I.EIO/. 
TCLOSS  / 0..O./.  POLOSS  /O./.  GANNA  /.!/.  BETA  /1. 8/. 
GT  /-I  .ElQ.-l  .ElO/.  nOOX  /O.O/.  ANTlOS  /O./. 

COVER  /O./.GRP  /O/ 


C BER  IS  BIT  ERROR  RATE  OEGRAOATION  DUE  TO  HAROUARE 
C IBER  IS  ARRAY  OF  DATA  RATES 


DATA  I BER/. 25.. 50.1  .0 .2 .0.4 .0 .8 .0 . 16 . i32 . .64 . . 1 28 . .256. .51 2 . .768. . 
1024./ 


OATA  BER/8a4.4.4.6.5«S.5.8>2.4.2.4.2.5.4a3.3.10a4.0.3.9. 


iO-143 


10-144 


10-145 


sej&eoducibjijty  of  THF 
DKMAL  page  js  pooi^ 


10-146 


CONT.  ON  PC  6 


PQ-AUE &i 


10-147 


10-148 


PG  7QF Si 


10-149 


10-150 


10-153 


C£WT.  ON  PG  13 


pG  m. Si 


10-154 


10-155 


CONT.  ON  PG  16 


P6  ia>F 5i. 


10-157 


■\Z2 

210 


10-159 


10-160 


10-161 


10-163 


10-164 


T 


CONT.  ON  PC  25 

PG  2<y 


10-166 


CONT.  tW  PO  26 

PG  zay Si 


10-167 


CONT.  ON  PC  27 

PS  2SF  54 


10-168 


CO  TO  440 


iaa 


CONT.  ON  PG  28 


PG  2-DF Si 


10-169 


COHT.  OH  PC 


29 


10-171 


CONT.  ON  PC  31 


PG  3QDF 5i 


10-172 


10-173 


CONT.  ON  PC  34 


PO  5£. 


10-175 


10-176 


10-177 


10-178 


10-179 


10-181- 


10-182 


CONT.  ON  PC  42 

PQ  4 0r 51 


10-183 


CONT.  ON  PG  ,43 


PG  42y  - ' S4 


10-184 


CONT.  ON  PG‘  44 


■piLjajE Si 


10-185 


CONT . ON>G  4B 


PS-JUE 51 


10-186 


10-187 


CONT.  OK  PG  ■ 47 

pg  4gy &i 


10-188 


CONT.  ON  PC  48 


PG  4iy Si 


10-189 


10-190 


10-191 


10-192 


10-193 


10-194 


10-195 


10-196 


10-197 


10-X98 


INTEGER  fUNCTIONRESETI K1 

connoN  /oecon/onrnei ss.ioo) .loei 30 ) 


10-199 


[W1 


gc  g PtWQi 


10-200 


10-201 


10-202 


CONT.  ON  PC  4 


10-203 


10-204 


10-205 


10-206' 


r 


I 

I 


CONT.  ON  PG  8 


10-207 


PP  B F1WQL 


10-208 


SUBROUTINE  SANOCI tPIC. lERR. ITER. NCONF .[CHOSE. NEHOSE ) 


ICHOSE(IO)  IS  SELECTED  EQUIP  flS  FOUR  DIBIT  EQUIP  = --  HRNF  5 
NCONF  IS  CONFIGURATION  NUfiBER.ITER  IS  NUMBER  OF  THIS  ITERATION 
lERR  IS  A MULTIPLE  MESSAGE  ERROR  FLAG.IPIC  IS  THE  LAST 
SET  OF  SUBSCRIPTS  CHOSEN 
COMMON  USER  LISTS  USER  INPUT  PARAMETERS 

COMMON  BTUN  LISTS  MECESSART  COMMUNICATION  BETHEEN  SUBROUTINES 
COMMON  COATA  HAS  LAST  SUBSCRIPT  FOR  EACH  P^IECE  Of  EQUIP. AMO 
THE  NE'CESSARr  PIECE  OF  THE  DATA  BASE 


DIMENSION  ICHOSEI 9)  .IPICf 3) 
DIMENSION  NCONFfS) 

•EStS). 

CI5).0HAI2) 

.GE  3) .FI  9) 

.NCHOSEI 9) 

^ 

COMMON  /USERl/  ALPHA. 

AX. 

Ar, 

AZ. 

OPHI , 

EA. 

EANT. 

EPL. 

X. 

MANY. 

OMEGR. 

POOTAV, 

POOTRX., 

• POOTRr. 

PDOTRZ. 

POOTST . 

RDOT.X. 

POOTr. 

PDOTZ. 

POOTO. 

PHIFOV. 

PHIRX. 

PHIRY. 

PHIRZ. 

TACCEL. 

THETMX. 

THOLO. 

TL. 

TPMIN. 

TSHALL. 

XN. 

XNN. 

XNNN. 

XNU. 

YN. 

2N 

COMMON 

/USERl/ 

lOEBUG. 

MICRO. 

APOGEE. 

EOMIUT. 

E0M2XL. 

ISAT. 

RELME. 

XMER. 

COMRAT. 
EQMIXL  . 
E0N2YL. 
MB12SH. 
SPECI6). 
XMEU 

DIAMAX. 
EOMl.YL. 
E0M2ZL. 
OPTEMP. 
SPEC! . 

EEOHTI 9), 
EQMIZL. 

. FE. 
ORBINC. 
T. 

EPME. 
E0M2NT. 
lAGNCY. 
PERIGE. 
XCGSAI . 

^ 

COMMON 

/bthn/ 

ACSSN. 

acshp. 

ALT  . 

AREA. 

BATCAP. 

BITRATI 2) . 

CLIFr. 

CONVUT . 

0. 

OT. 

OX. 

or; 

OZ. 

EQBLG. 

EOBSIO. 

FC. 

FF, 

HARNNT. 

HPT. 

HTPIPE. 

HTPT. 

HTRPRB. 

HTRPHR. 

IBTLOC. 

LMBOO. 

NC. 

OMEGS. 

PASSTR. 

PJ. 

PL. 

PLMIN. 

POCNUT. 

RAOA. 

RADAB. 

RAT. 

RJ. 

SABOLG. 

SATLG. 

SATTHT. 

SATHT, 

SATXCG. 

SATYCG. 

SATZCG. 

SAIXL 

SAIYL. 

SAIZL. 

' SIDE. 

SYSL6. 

THCMHT 

THRUSTI 2). 

TI , 

TNKWT. 

TPRIM. 

VB 

VCHP. 

VOL. 

HATE. 

UB. 

UBT. 

NT. 

XJ. 

XNZERO. 

YJ. 

ZJ 

COMMON  /OBCOM/OATABI S5.100).IDBI  30) 

DATA  XMO.VM0.2M0.0I .XM02.rM02.ZMD2/3a .0003 . .03 .3a .04/ 
ACSSN  = 2.. 


IF  INCONFI  I ) .EO.  1,) 


CONT.  ON  PC 


10-209 


fl 


CO  TO  1,0 


DT=0T/12. 


D:l 

0/12. 

OX 

=0X/I2. 

-DY 

zOY/12. 

' 

02 

=02/12. 

XJ 

=XJ/4636. 

.8 

YJ 

=YJ/4636 

.8 

ZJ 

=2 J/4636. 

.8 

RJ 

rl  . 

PJ 

: PJ  / 

4636.8 

UT  = 

0. 

VOL 

= 0- 

PL  = 

0. 

PtnlN=0. 

08 

= 0.4 

■ PHIRX 

IF  I 06  .lT  . O-OS) 


08  = 0.05 


EPSLH  : 0.7 

£PSfl  ”«0*2  * 

OtIEGO  s lIl06'4E8  / I20.920ES  » 6076  •■RL  T)  ■■  I .5 
RE  r 3441.66 
OHEGE  : 7.2927E-5 
HO  : 9.4E'8 

XK  : 3»0HEC0«0«EG0  /(57.3)«i2 
XCG  - 1./12.  ■ I SflTXCG-500.-.5«E0BLG) 


10-211 


CONT.  ON  PG  S 


10-212 


10-213 


10-214 


10-215 


TflUXfl  r 0.0 
Tfluvfl  r 0-0 
TflUZfl  =0-0 

flP=(  5ID£*XLNrH)»l  EOniXLiEOMirL/Mi  . U r E0H2XL«E0H2rL  / 1 44  . ) 
XCP  =(E0fllXL-E0H2XL )/24. 
rCP=  0.0 


SIDE 

12  = 

SI0Eal2. 

. 

ZCP 

: AHAXI ( SIDE12 1 

.EOHIZL  tEOHZZL  ) /I -24  . ) 

XLX: 

XCC 

- XCP 

XLT  = 

rcc 

- rcp 

XLZ  = 

zee 

- ZCP 

A = 

RE/A 

' 

5 = 

1 .02 

a A&INIR) 

TS  = 

2.  a 

i 3.14159- 

■S)/0t1EC0 

CO  TO  ia0.ai.32).IN05E 


TE«PX  = XLX 


xir 

-TEHPX 
HO  a AP  • 
HO  a.  AP  B 
0- 


i;I  -*EPSLTn  a XLT 
I 1 .*EPSLN)  al -XLX) 


TEHPX  = XLX 


XLX 

= -XLZ 

XLZ 

1 TEHPX 

rsx 

= 0. 

TSY 

= HO  a RP  a 

1 1 

.♦EPSLN)- 

a XLZ 

rsz 

= HO  a AP  a 

r 1 

.♦EPSLN) 

af -XLY  ) 

CO  TO  38 


= HQ  «{ APatt -*EPSLH)aXLr  » SREFSP 1 1 I . ♦EPSA ) aOEL r SP  ) 


IF  (PERIGE  .GE. 300.1 


IF  IPERIGE  .CE.IOO.) 


YREF  = 0. 

S10E12  : SIDE 

a 12. 

ZREF  : RRRXI 

■SIDE12.E0RIZL  .EQR2ZL-3  /I-24.). 

OELTX  : XCG  - 

XREF 

OELTY  : YCG  - 

YREF-  ' 

OELTZ  : ,ZCG  ' 

ZREF 

TERPX  : DELTX 

i 

DELTX  .=  -OELTZ 

■OELTZ  = TEHPX 

&0  TO  50 


SI  DEI  2 = SIDE  « »2T| 

^ ^ 

SREF:R«flXl(  SIDEl2tE0MlYL.E0H2'i'L  SID£t2»£0«l2L.EQ«2ZL)/m 

XREF  : XLNTH/2.  ♦ E0H1XL/I2. 

YREF  = 0- 

2REF  =0.  - . . 

DELTX  : XC&  - XREF 

OELTY  : YCG  - YREF 

OELTZ  = ZCG  - Z8EF 


SREFbI nELTZaCY»OELTY«CH)»0«SREFSP»l DEUZSP»CY*OELYSP>Ctn 


TRY  rOaSREFal 0ELT2«Cfl-0£LTX«CN)t0»SREFSP»( OELZSPnCfl-OELXSPaCN) 
TflZ  -QaSREFat -OELTYaCfl-OELlXaCY  UQaSREFSPal -DELYSPaCR-DELXSPaCY ) 
P : 17.8  /(flP0GEE-P£RIDE*-l8.751  *0.05  . 

TftUXfi  : P a T a 2.592E6 

TflUYR  = P a T a 2.592EB 

TflUZfi  I P a T a 2.592EB 


CONT.  ON  PC  12 


10-220 


10-221 


10- 


IF  I iPici 1 ) .eo.  01 


T 


juioimM 


CONT.  ON  PO  16 


10-223 


r*»r>o 


10-22-4 


itzll 


CONT.  ON  PC  Ifi 


10-225 


IM  TO  tT6J>- 

Pirn 


[1bT;G»  1 )«l»  1*/*6I  2 )»<><  3)>&t  3 > T 

[gr  = S0»Tt€SH)»2>eSIS)..2)*stiT><Ki.»?*GT*Cm..2»&H.GHiJ 

£*rS0tTI  K»lt.«2»€SI  4 )-.«2)*S0BTI  «K2-*2*CI  I )..Z.CJ  2 )«p2.C  ( 3 )«T 


»GH>&W*GT ) 


g , 

rTHTiTn 

1 MINT  9000.».>*yj  1 


an<w  w 

I FOOWOTI  tB»4HtJ=  EU.4»iHPJ=  EH.^Tj 

^ 

[TitiiT  9oor»c'x »£y«tn 


I F0«HftT~ 


MM.iMEXi  eT?!4»4HEVs  En.4»4HEZ; 


C«T.  ON  PG  t9 


PC  11F  sa 
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0 

IPO 

INT 

EPR 

EPR 

PO  INOEX 

0 

IPOE- 

INT 

EPR 

EPR 

ENO  PO 

0 

IPIC 

I.O 

EPR. EPS 

HRIN 

HOUR  INDEX 

0 

SPO 

SPOE 

SRI 

SRIE 

SR2 

SR2E 

K1 

2 


>R 

EPR 

SPO  INDEX  a 

»R 

EPR 

ENO  SPO  a 

»R 

EPR 

SRI  INOEX  -> 

>R 

EPR 

ENO  SRI  a 

»R 

EPR 

SR2  INOEX  a 

»R 

EPR 

ENO  SR2  a 

»S 

EPS 

1 .02 

BRTT  PKO  F a 

»S 

EPS 

1 .4 

BRT  ST  UT  Fa 

^ 

»R 

EPR.REL 

0.3 

RV  DP  OISCHa 

»S 

EPS 

- 

ORINT  FACT  a 

»S 

EPS 

0.9 

SLR  PKD  FRCa 

9 

EP 

1 .408EIE 

CONSTANT  a 

? 

EP 

earth  rate  a 

»s 

EPS 

2 

NO  BRTT  a 

PS 

EPS 

NO  SLR  CELLa 

PR 

EPR 

NO. ecu  a 

C 

s 

NCH 

INT 

EPS 

EPS  2 

NO  CHORS  a 

C 

0 

NCHOSE 

0 

EPR. EPS 

HRIN 

NO.  EQUIP,  a 

C 

0 

NCONf 1 1 ) 

I .EP5.0 

HAIN 

EPS. HRIN 

SRNOC  HRCROa 

C 

0 

NCONFI S 1 

I.EP  .0 

RAIN 

EP  .HRIN 

EP  HRCRO  a 

c 

0 

NCGNFl 6 ) 

I .EPS.O 

HRIN 

EPS. HRIN 

VSI2E  HRCROa 

c 

9 

NO 

INT 

EPR 

EPR 

NO  OISCH  ROa 

c 

0 

NLR 

INT 

EPR 

EPR 

NO  LO  REO  a 

c 

0 

NPCU 

INT 

EPR 

EPR 

NO. PCU  a 

NO.  PD 
NO.  SPO 
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C a 

NSA  ' 

INT 

C a 

OPTEHP 

1 

C a 

POOL 

INT 

C a 

PO 

INT 

C a 

PEXCES 

INT 

C a 

PIE 

INT 

EPR  <»0  SMUr  «£(>■ 
tP  1 5,. -DEG.  C BBT  TE«P  • 
EPfi.EPS  MATTP.HB  B.O-L.  • 
EPR  UATTSBr  PUB-BEGo 
EPRtEPS  MflTTPHO  2B  OISP* 
EPS  3.141S9  COMSTBBT  • 


ALL 

S/S 

EPR 

HATT  AV-PHR  LO  a 

all 

S/S 

EPR 

HATT  min  pur  LO  a 

EPB 

EPR 

UATTTOT  PUR  LREa 

EPR 

thermal 

HATTPUR  O.ISP  LRb 

EPS 

EPRtEPS 

hatteol  sol  OUTb 

EPS 

EPS 

TEMP  OEG  ECb 

EP 

CP 

USED 

IN  CALC  OF  TE  a 

EPS 

EPS 

13S3 

U/M2AV  SOL  INT  b 

VC 

VCELL 

VOB 


s 

EPR 

ECP5  time  a 

s 

EPS 

■OARK/LITE  a 

s 

CPS 

FTaaBUNIT  BATVOLa 

R 

EPS 

VOCMIM  BAT  VLTb 

s 

EPS 

FTaaOTOT  BAT  VOL  a 

s 

EPS 

1 .1  VOCMIN  cell  U a 

MAIN 

M3V0L  CELL  a 

R 

EPR 

VOCAVE  all  VOLa 

VOL 

MATE 

UB 

UBT 

UCELL 

HT 


0 

INT  .0 
INT 
INT 
INT 
0 


VESIZE 

EPS 

EPS 

EPS 


Priaa  EP  VOL  ■ 
KC  BBBBV.UJ  • 
KGUNir  BAT  UT« 
KGTOT  bat  UT  e 
lB  cell  HGT  b 
lbs  EP  HT  B 


COMMON  /USERI/ 

APOGEE. 

COMRAT. 

OIAMAX. 

EE0UTI9). 

EPHE. 

EOHIMT . 

EOMIXL. 

eomivl. 

EQMIZL . 

E0N2UT • 

10M2XL. 

E0M2VL.  ■ 

EQM2ZL. 

FE. 

lAGNCV. 

IDESUG* 

ISATOR. 

MBI2SH. 

OPTEMP. 

ORBINC. 

PERIGE. 

MICRO. 

RELME. 

SPECI B). 

SPECI . 

T . 

XCGSAl . 

XMER. 

XMEU 

' — X 

COMMON  /BTUN/  ACSSN. 

ACSUP. 

alt  . 

AREA. 

BATCAP. 

BITRATIZ). 

CLIFE, 

CONVUT. 

0 B 

or . 

OX . 

or. 

OZ. 

EOBLG. 

EOBSIO. 

FC  . 

FF, 

harnht  . 

HPT . 

HTPIPE. 

HTPT  , 

HTRPRB. 

HTRPUR. 

■'  I8TL0C. 

LMBOO. 

NC. 

‘ OMEGSi 

PASSTR. 

PJ. 

PL . 

PLMIN. 

POCNHT . 

RADA. 

> RAOAB. 

RAT  . 

RJ. 

SABOLG. 

satlg. 

SATTUT. 

SATUT. 

SATXCC. 

SATVCG. 

SATZCG. 

SAIXL  . 

SAUL  . 

SAIZL. 

SIDE. 

• SrSLB. 

thcnut . 

THRUSTI2). 

TI, 

TNKUT . 

TPRIM. 

VB. 

VCHP. 

VOL  .. 

HATE. 

H6. 

■ UBT . 

UT, 

XJ, 

N » 

rj. 

ZJ 
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COnnON  /OBCOn/OATABl SS. 1 00 ) 1 1 DSf  30 3 


CDRWON/PRTCOn/  ACCBCT, 

AH. 

AN* 

BF  * 

B$. 

CDPH7,2)» 

CISTAR, 

croT, 

OOTE* 

DE* 

DRIUT. 

EOBSTR* 

FEEINV. 

FEEOPS* 

FEER* 

6SE. 

IREL. 

ITRUNC* 

nnOOLO*NAHE3  3*60  3 * 

OPS* 

PAr IMV, 

PATOUL  * 

PAYR* 

■PE  . 

PHP  * 

PAR. 

PONERI € 3 • 

PU* 

PURI  60  3 . 

. OCP. 

OCR* 

ROLO! 603 . 

SABHUT* 

SATAOP* 

SATINV. 

SATR. 

SEIP. 

SEIR. 

SXTAur  6) * 

SSRELI6). 

SUSEt7). 

SUBTI73* 

SUBUEI 7 3 . 

SUBUPI 73  * 

TA, 

TAUI6.6). 

TB* 

TC. 

TE. 

TF  , 

TOOIR* 

TOOLU. 

TOTOPS. 

THUNC. 

TS. 

TTT. 

V0LUREf63. 

V0U6O3. 

UEIOHTI 63  * 

XLTOT, 

xnEH. 

XREINV* 

XAEL. 

XREVL* 

XHEH. 

xhemt  , 

XXE3T 

OIRENSION  NCONFIIOI.  IPIC(S3.  ICHOSEIS).  NCHOSEIS) 
BEAL  HUtK*ICH.LnS00>LRa0&*LR60P*K| «K2 


DATA  OELf /.03/ .0£ L I / .02/ »DELH/ .01 / tCT Al / . 1 OS/ .£ T A«/ 1 -0/ .Kl / 1 -02/.K 
2/1 .4/.LHBOP/-9/.SOL/t3S3./.»C/I -1 / tPIE/3 . t 4 1 5926/ 

.CM«ItlT/2  .0/ 


flEAN  RADIUS  OF  EARTH  IN  FEET 


HE  : 20.92E6 
nuU  .40764SEI6 
HP  = 6076.  » PERIOE 
A=HP»HE 


10-299 


10-300 


10-301 


10-302 


10-303 


CONT.  ON  PC  to 


PC  S 


10-304 


RETURW 


CORT,  OR  PC  12 


PG  IPF 


J2_ 


10-306 


10-307 


10-309 


10-310 


10-311 


UT  -.MSR«OATRB(  23iISRt  ! *HBT  *NCHtOAT  A0(  ?3 . 1 CHOR)  *NPCU«ORrABl  23»  (PCU  ) 
• H T ; . 


vOl :NSR«OflTRB' 2i  • I SRI  )*yBT*NCHaDPTPBI 2i * { CHCR ) *NPCU«ORrPSI  24.IPCU ) 


DO  rO  590 


••  SHUMT  AND  OISCHARDE  0E5IDN  as 


ICONF:RCONFr  5) 


(0RE:IDBr4) 

ISR2E:!0B(5) 

ICELLE:I08I2} 

ICHDRE:I0B(6) 

NCCU:1 


IF  ( [PICt  1 ).NE 


n 


DO  TO  290 


CONT.  ON  PC 


10-312 


, i , 

f ID»:If»ICn  )♦!  I 

ISM2:IPICt2  ] 
ICEUiIPICI  3) 
ICKOOzlPICl  4) 
ICCUiIPICiSJ 


I DO  ro  360~">>»^ 


COMT.  OM  PC  19 


pa.iar aa 


PAGE  IS  POOE 


10-313 


10-314 


IF  f ICHDR.OE.ICHGR£) 


CO  TO  340 


I I0R=I08r  3)«1  I 

i. 

!SR2:I0B( 4)»1 
ICEIUIOBI  I 1*1 
ICHCR^IPICi 4 )* I 
ICCU=IPIC1 S) 

fbO  TO  3iF^ 


DO  3S0  IiI.S 


I ICHOSEI I ):-l  I 
I RETUBW  I 

^ "•  COHPuTE  SELECTION  PRRRHETERS  FOR  SHUNT  ANO  Ot^rHasrr  ^rm  ar  r nu 

c - cSJyi  lil  ?!ffrf5E"^E"SVSrc&“5S^ 

LJL! OETERHINE  NUH8ER  OF  DISCHARCE  REGULATORS  REQUIRED 


( NDzNfln 

[C.  , ■>  DETERMINE  EXCESS  ARRAY  POWER  FOR  REGulATIDN~| 

lift!  •:^EDTS»I  1 ./’J  ETAD«£TAC«ETAE  ) ) ) 

Pe!c£s!pBOL-PLHIN*'*  * I • -0ELT  1 ■ M -OEL  I)«(  1-QELH) ) 


CONT.  ON  PC 


10-315 


10-316 


CONT.  m PG  24 

PG  2ar  39 


10-318 


10-319 


10-320 


CONT.  OM  PG  27 


PC  2fflf aa 


10-321 


CONT.  ON  PC  26 


10-322 


F 


ICH*DflT6B(23.[CHCR)» 


ea.zy aa 


10-324 


10-325 


30 


10-326 


CONT . ON  PC  33 


efi-jo ^ 


10-327 


10-328 


10-329 


CONT.  ON  PC  36 

PQ  3gff  38 


10-330 


10-331 


10-332 


10-333 


CMD 


pa  a fiwft. 


10-334 


SUIKOUriNE  flUXPRO  t I^I C »IE*R * t TER .NCONF . ICHOSE *NCHOSE ) 


CONNON  /USERI/ 

APOOEE. 

CONRAT, 

OIANAX. 

E£0NTt9)« 

EPNE* 

EONIMT. 

eonixl. 

EONiri. 

EOniZL. 

E0N2NT. 

E0N2XL. 

EONZri. 

E0N2ZI. 

TTHST. 

IRONCr. 

lOElUC. 

ISRTOR. 

NI12SH. 

OPTENP. 

ORB INC. 

PERIOE. 

niCRO. 

RELNE. 

SPECII). 

SPECl. 

XOUNl . 

XCCSAl. 

XNER. 

XNEU 

connoN  /ITUN/  acssn. 

alt. 

AREA. 

BATCAP. 

BITRATI2). 

CLIFE. 

CONVMT. 

D . 

OT. 

OX. 

or. 

OZ. 

EBBIO. 

EOlSIO. 

FC. 

acthst. 

HARNHT . 

HPT  • 

htpipe. 

MTPT, 

HTRPRB. 

HTRPMR. 

ibtloc. 

LHBOp. 

NC. 

ONE OS. 

PASSTR. 

PJ. 

PL. 

PLAIN. 

POCNHT. 

RADA. 

RADAB. 

RAT. 

RJ. 

sabolc. 

satlc. 

SATTUT. 

TOTIHP 


XNZERO 


COnnON  /OBCOff/ORTAtl  5S . 1 00 1 . 1 Oil  30 ) 


SSRELI6). 

SUBEI7). 

SUBTI7). 

SUBUEI7). 

SUBUPI7). 

TA. 

TAUI6.6). 

TB. 

TC. 

TE. 

TF. 

TOOLR. 

room. 

roTOPS. 

TAUNC  * 

TS. 

TTT. 

V0LUNEI6). 

FOLIBO). 

UEIOMTIB). 

XLTOT. 

XNEH. 

XAEINV. 

XAEL. 

XNEVL . 

XNEN. 

XNENT, 

XXEST 

OtHERSION  IPlC(9}tNC0NFI6).ICH0SEn4).NCH0SEI  14). 
IRCCPTI20) 


OlflENSlON  N( 14) 

ORTA  XNR/1.6/ 

PRINT  9000.ACTH8T.TTHST 


FORNAT  llX.9HACTHSr  : .£ i 1 .4 .1 X «INT THST  : .Ell. 4) 


CONT.  ON  PC 


10-335 


OBIGINAL  PAGE  ^ 


10-336  . 


or>o 


THftUSTEft  SELECTIOI 
FlftSr  CHECK  TQ  5E! 
BASE 


10-337 


10-339 


10-340 


10-341 


10-342 


10-343 


THRUSTERS  HAVE  BEEN  SELECTED 

SET  NUHBER  OF  EACH  TVPE  OF  THRUSTER 

CHECK  TO  SEE  IF  CVCLE  LIFE  REOUIREHENT  IS  SATISFIED 


IFf 0ATABI7.JI J.LT.CLIFE) 


lERR:  1 


IF(0ATAei7»J2).LT.CLtFE) 


lERR:  I infLlES  that  THE  CVCLE  LIFE  OF  THE  ATTITUDE  AND  CONTROL 
THRUSTERS  IS  TOO  SHORT.  lERRx  10  IHPLIES  THAT  THE  CVCLE  LIFE  OF 
the  translational  thrusters  is  too  SHORT.  IERR=  II  INPLIES  THAT 
THE  CVCLE  LIVES  OF  BOTH  THRUSTERS  ARE  TOO  SHORT 
PRELIHINARV  CALCULATIONS  FOR  SELECTION  OF  PNEUMATIC  ISOLATION 
valves  and  FILTERS 


PTI:0ATRBi8*Jl!) 


RHO:  I.02£'7iPTI 

HOOTPR:  IS.iACTHST  » 2.aTTHSn/65. 
COAISO:  HO0TPR/S8RTi2O0.«RH0/1.29E<3) 
RHAX:  2O0./U0OTPRaB2 


SET  last  EOUIPNENT  INDICES 


Bj 


DETERMINE  HARDWARE  INDICES 


10-344 


10-345 


CO  ro  33 


CONT.  ON  PC  15 


10-348 


10-349 


10-352 


CWT.  ON  PG  .20 


joi-rs® 

^ pOOB. 


10-353 


10-354 


10-355 


ji=  iflccpTin 
THRUST:  ORTRBI 6.JI ) 

OtFNEH:  ABSf thrust  - RCTHST  ) 


IFIOIFNEU.LE.OIFOLO) 


CmT.  ON  PC  23 


10-356 


10-357 


10-358 


10-359 


10-360 


CONT.  0«  PG  29 


P£..2fflT fia 


10-362 


10-365 


1 


c THE  HBgPWflOE  INDICES  SET  } 


rp~TO  S5 

1 FUEL  CIRCtJlT  ISOIRTTOM  DRIVES  ftWO  FUTEH>  flCCEPTaBlE  J 


( DELPISV  I 1 ,29E-3/WH0F)rmD0TF/0HTWBr 

OELPFI:  DRTBB«7.J4)«II00TF«»F 

ICH0SEI3):  SgISoll**!!! 
ICHOSEM):  0flT(»Bn»J4) 

jpicin=  J3 

1PICC?)=  J4 


cKituLut  101.8  rMSELtcTiiw  OF  mwtic  hcmlhim; 
^ 


UV-  ??I"!'5:iyLPIS  . 2..0CLPFI 
'SJS?Mr28;.!;55l-?il«EO.IIOOtf/«HOf 

roftWE&s  H0QTPR/S0t>T|  S600.«PBEQ/1 .27E4 1 


IfEC^nToflTflarTjS  KOR  .PREC.OT  .OflTflBI  9 . JS ) .OR  .OBTPBI  7^15^^ 

rOBREG) 


I GO  TO  sT  :>*® 
REGULATOR  IS  RCCEPTHBLE  [ 


[ ICH0SE<  S>=  pRTPBI 1 iJSl  1 


COMT.  ON  PC  33 


pn  W 63 


10-366 


10-367 


CONT.  ON  PC  35 


efi_afl£ 63. 


10-368 


10-369 


10-370 


ICHOSEfSl  : OflTASI 1 «J8] 


.SIZE  PLOHBmO  flWO  CDNWECTORS 


PCHflTE  = .2alDflTflB(23.J7)«NCH0SEl7)  ♦ DRTflBf 23.J0  )«NCHOSE( 9 ) ) 
N(9):  JJ 

Nl  10):  «K 

Nt  in=  II 
N(  I ):  Ji 
Nl  2):  J2 
Nl 3):  J3 

Ml  4):  J4  — 


00  542  IsUli 


UT=  NT  » NCHOSEI [)bOATAS(23.J) 

VOL:  VOL  ♦ NCHOSEI  n«0RTB8l24.J) 

PL:  PL  ♦ MCHOSEI I)«DflTflBI  16.J) 

PLHIM:  PLHIN  * MCHOSEI t )»DflTRBI  19»J) 


CONTINUE 


ORIHT:HT*PCHflTE-HEIBHTl  I ) 
MTs  NT  ♦ RCSHP  «■  PCMRTE 


||:T:l|f:VJ| 


RETURN 


CONTINUE 


uoBnyQgP  SCLECnON  MOT  RCCEPTRBLE  - INCREHENT  HflRQHBRE  INOICES 


IFIJ3.LT.J3E) 


CONT.  ON  PC  38 


10-371 


10-372 


10-373 


1,0-374 


IFI  ITER-NE  .03 


ICO  TO  6S 


IHlTIflLlZE  ICHOSE.HCHOSE.IERR  AND  SELECT  HflROHflRE  MOT  SIZED 
I.E.i  TILL  ftMO  ORfilN  VALVES. FILL  ANO  VEMT  VALVE  AMO  RELIEF 
VALVE 


-ft. 


< OO  64  U1.14  > 

^ 1 

ICHOSEI I 3;  0 I 


M 


Jt 


NCHOSEI  1 3=~n 


[ERR:  0 

MCH0SEin  = 6 

MCH0SEt2)=2 

NCH0SE(3I:3 

NCHOSEI 4 3=3 

NCH0SEI53:4 

NCH0SE(63:4 


< DO  649  1=7.11  > 


-iia. 


NCHOSEI 1 3=1 


NCHOSEI 123:2 
NCHOSEI 133=1 


CONT.  ON  PO 


42 


PG  4PF 


10-375 


Ifl THRUST. CE.FHAX) 


10-376 


I GO  TO  lot  Xtm 
HO  BCCEPTflBLE  TH«UST£WS 


! ICHOSEtn:  -I 

' . ■ 

I RETURN 

AT  least  owe  flCC£PffteL£-  THRUSTER 


CONTINUE  i 

£_ - 

the  INEOUAUTr 

thrust  OE  nCTHST 


THRUST:  OATRBrS.Jl ) 


IFI THRUST .DE.fiCTHST ) 


GO  TO  151 


irni 


CONT.'QN  PG  44  ' 


10-377 


10-378 


10-379 


10-380- 


10-381 


10-382 


10-383 


CfWT.  ON  PO  S4 


PG  say 


EmOBtiCIBlLTrY  OF  TE® 

original  page  is  poob 


10-387 


J6: 

IPICI4)  - 

J7r 

IPICIS) 

JO: 

IPICI6) 

J9: 

IPICI7) 

JiO: 

IPICI8) 

Jll  = 

IPICI9) 

Bnim] 


J3  = 

IDBiia)  * 

1 

J4: 

IDB(13)  * 

1 

J5; 

IDBM4)  » 

1 

J6  = 

IPIC(4)  « 

1 

J7= 

tPIC(S) 

JB= 

IPlCiB) 

J9; 

IPICI7) 

JI0  = 

IPICI6) 

Jll=  IPICO) 


CONTINUE 


J3:  IDBnS) 

♦ 

1 

J4=  I0Bt.t3) 

♦ 

1 

J5=  IDBIU) 

¥ 

1 

J6=  IDBri4) 

1 

CONT.  ON  PG  S5 


10-38.8 


10-389 


4 


CONT.  ON  PC  57 

PC  SaiF  _Ei 


10-390 


PTIi  OfiTflBJS.Jl ) ^ ' 

ppr=  RTI  ♦ 2-bOLPISF  * 2.8DLPFIF  . 

POTs  PTI  ♦ 2.«0LPIS0  ♦ 2.«OLPFIO 

Uol?PR-^l -0SaI.02E-7n28.«PB£&«l yOOTF/RHOF  ♦ MOOTO/RHOO) 
CD»REC=  MOOTPR/SaRTl  SSOO.PPREG/l  .27E4  ) 


FREoTLrToPTflBI  a . J7 1 .OR .PREO.GT .OflIflBI  9. J7 ) .OR.DBTBBl  7 .>7)Tn 
BRED)  


[GO  TO  BL 


REGULBTOR  IS  BCCEPTBBlE 


ICH0SE17):  OBTBBI It J7) 


IPICtS):  J7 


PRELintNBRY  CBLCUI.BTI ONS  FOR  SELECTION  OF  PMEUMBTIC  ISOLBTIOIS 
VALVE  


RHOPR=  l.02E-7«3000.  ^ ’ 

CDAISO:  yPOTPR/SGRTI 200.«RH0PR/l .RSE-SI 


ICHOSEIB)=  DBTBBI 1 tJBl 


IPIC(6)=  J8 


PRELimUBRV  CflLCULBTlOHS'  FOR  SELECTIOH  OF  FUEL  TANK »QXIDI2ER 


I 


IPIC(7)= 

J9 

IPICI0): 

JIO 

IPICI 9)= 

Jll 

Nl 12):  RK 

Nl 13):  It 

Ni  U):  JJ 

Nl  1 ):  J1 

NI2):  J2 

NO)=  J3 
N(4)=  J4 
N(5)=  JS 
N(6)=  J6 


CONT . ON  PC  .59 


1,0-392 


10-393 


10-394 


10-396 


gfi  63  FlMflL 


10-397 


wsaitODTJCEILlK  OP  Pfi 

SS.PA6E1SK^ 


U>  II 


10-398 


PG  2 FitWL 


10-399 


FUNCnOM  CERFIY) 

01  PENSION  B(28)tAI26)fflfl( 17)>BS(  {9) 


1 ORTR  RZERO 

/ 3.88730365/  I 

ORTR 

Rf  1 ) 

/-I .38163142/ 

DATA 

RI2) 

/ .647316404/ 

ORTR 

R13} 

/-. 305931024/ 

ORTR 

R(  4} 

/. 1386797472/ 

ORTR 

RI5) 

/-. 05924745/ 

ORTA 

RI6) 

/. 023691751/ 

ORTR 

R(  7) 

/-. 00884736263/ 

ORTR 

RIB) 

/ .00308566171/ 

ORTR 

RI9) 

/-. 001006386351/ 

ORTA 

Rl  10) 

/. 000307546328843/ 

ORTR 

R1  11 ) 

/-.B8261983E-04  / 

ORTR 

R(  12) 

/ .2384S096E-04  / 

ORTR 

RII3) 

/-.60791002E-0S  / 

ORTR 

Rl  14) 

/ .146537217E-0S  / 

ORTR 

Rl  IS)' 

/-.03351S993E-05  / 

DATA 

Rl  16) 

/ .007280S79E-OS  / 

ORTA 

Rl  17) 

/-.001505791E-OS 

/ 

ORTR 

Rl  18) 

/ .297094742E-08 

/ 

ORTR 

Rl  19) 

/-.S60212739E-09 

/ 

ORTA 

Rl  20) 

/ .t0113I623E>09 

/ 

DRTR 

RI21  ) 

/-.17S06504E-10 

/ 

ORTA 

Rl  22) 

/.029103813E-10/ 

ORTR 

RI23) 

/-.4653264E-12 

/ 

ORTR 

RI24) 

/ .7164815E-13 

/ 

^ 

DRTR  RI26) 
OArO  8(27) 
ORTR  Bf28) 
ORTR  RRZERO 
ORTR  RRf 1 1 
ORTR  RRI2) 
ORTR  RRO] 


/ .IS2467E-14 
/ .0 
/ .0 

/ 1.970705272/ 

/-. 014339740271775/ 

/ .00029736169220261/ 
/-.9803S160E-05/ 


■ •.j 


10-401 


10-402 


SUBROUTINE  REIT 
COnnOM  /USERR/ 

riRTN.IOS 

tSPT. 

.NEOUIPI 
I SUB. 

KEOP.T. 

RFIXEO.  ' 

. SLBflX 

, - . 

connoN  /usERi/ 

APOOEE. 

CORRAT. 

OIARAX. 

EEOurrsi. 

EPRE. 

EOHIUT. 

EOniXL. 

EQHiri. 

EOniZL. 

E0N2UT. 

EQH2XL. 

E0H2yLV 

EQN2ZL. 

• FE. 

IRMCr. 

lOEBUO. 

ISRTOR* 

RB12SH. 

TBI. 

ORBINC. 

PERIOE* 

ntCRO. 

RFNL. , 
XRER. 

SP£C(6I. 

XREU 

CONS. 

T.  . 

XCCSAl. 

- ' - ^ ^ ' • 

COnnON  /BTHN/  RCSSN. 

RCSHP. 

RLT. 

RREfl. 

BRTCRPo 

BITRRrt21. 

CLIFE. 

CONVUT. 

X0UR2. 

ot. 

^ OX. 

.0T» 

OZ. 

EOSLO. 

EQBSIO. 

FC. 

FF., 

HRRNHT. 

HPT. 

HfPIPE. 

HTPT. 

HTRPR6. 

HTRPUR. 

istloc. 

0. 

HC. 

OREOS. 

PRSSTR. 

PJ. 

PL. 

PLAIN. 

POCNHT. 

RROR. 

' RflORB. 

RRT. 

RJ . 

SRBOLC. 

srtlo. 

srttht* 

A 

THRUST(2) 


SrSLB. 
T 


THCftUT . 


coflHON  /oacon/  Ron.NRtsoi.Rioi.fioi.zon.ROianfROunian. 

SflVRt  3n.SflVNRUOn,RNEU(  31  ).NHXI60).SRvnXf  60). 
C0ST(60).0URi3213) 


CQNHON  /CHOSE/ 


C0STH(S.60). 
NCH0SEI60). 
THHI 4.601 


OPIAr 11.601. 

oorne  < 6.60i« 


I CHOSE  I 601. 
SICDI  7 .601. 


cohhon/prtcor/  RCCRCY. 

RR. 

RN. 

6F. 

es. 

C0PK7.21. 

cistrr. 

CTOT. 

DOTE. 

DE. 

oriut. 

eqbstr. 

FEEINV. 

FEEOPS. 

FEER. 

OSE. 

IREL. 

itrunc. 

RROOLO. 

tflREt 3.601. 

OPS. 

.PRriNV. 

PRYOUL. 

PRYR. 

PE. 

PRP. 

PRA. 

POUERtSl. 

PU. 

PHRI601. 

OCP. 

OCR. 

R0L01601. 

SRBRHTi 

' -SRTAOP. 

srtinv. 

SRTR. 

SEIP. 

SEIR. 

SXTflUISl. 

- - 

SSRELI61. 

SUBE17). 

SU6TI71. 

SUBUE(71. 

SUBUPi 71. 

TR. 

TRUI 8.61. 

XOURl . 

TC. 

TE. 

TF. 

TOOLR. 

rOOLU. 

rOTOPS. 

' . THUMC. 

TS. 

TTT, 

VOLUREIBl. 

VOLI 601 . 

MEICHnei. 

XLTOT. 

XREH. 

XREINV. 

XREL. 

XREVL. 

XREU. 

XREHT. 

XYEST 

DIHENSION  NISl.NEOUlPfSl 
RERl  HNOOLD.NHONEH.LflKS.NZERO 
INTEOER  SnVHX.SflVRSR 


c 

c 

INiriRL 

c 

VARIReiES 

SIZE 

ORIGIN- 

OEFN 

c 

CHRNOE 

c 

NSnx 

1 

EXT-NC 

NRX  NUfl  SrSTEH  REOUNORNCIES 

c 

NSR 

1 

EXT-  C 

CURRENT  NUN  OF  Sr ST EH  ■ 

c 

REOUNORNCIES 

c 

IRTN 

1 

EXT-NC  - 

RETURN  INOtCRTOR  ; . 

c 

JKIN 

1 

EXT-NC 

LONER  LiniT  ON  ROOULE  NUR  . 

c 

JHRX 

1 

EXT-NC 

UPPER  LiHir  ON  ROOULE  NUR 

c 

NR 

NINSS) 

EXT-  C 

CURRENT  NUR  OF  REOUNORNCIES.  IN 

c 

ROOULE  J 

c 

NKX 

Nl NSS) 

EXT-NC 

RRX  NUN  REOUNORNCIES  IN  ROOULE 

L 

c 

si  RITRUNC)  HOOE 

c 

Nr 

1 

EXT-NC 

LOOP  RNO  OPTION  PRRRRETER 

k - - — 

c 

0£LH 

t 

EXT-NC 

TIRE  INCRERENT 

c 

ITRUNC 

1 

EXT-NC 

NUR  OF  TIRE  POINTS 

c 

R 

ITRUNC 

INT 

RELIRBILITY  FNC  for  ROOULE  J 

c 

sITRUNC  RRO  HOOE 

c 

ROLD 

ITRUNC 

EXT-  C 

PREVIOUS  VRLUE  OF  SYSTER  . 

c 

RELIRBILITY 

c 

RNEU 

ITRUNC 

INT 

SYSTER  RELIRBILITY  UITH  UITH  R 

c 

REOUNORNCY  ROOEO 

^ — 

c 

RI 

ITRUNC 

EXT-  C 

SYSTER  reliability  HRTRIX 

c 

■NINSS) 

c 

COST 

NINSS) 

EXT-NC 

VRLUE  OF  EXPENSE  OPTION  FOR 

c 

ROOULE  J 

c 

RHO 

I 

INT 

DECISION  PRRRRETERf 

e 

ABSIaNEU  - aOLO )/EXPENSE 

c 

RHOTH 

1 

EXT-NC 

LONER  BOUND  FOR  RHO 

c 

OLORHO 

t 

• INT 

PREVIOUS  VRLUE  OF  RHO 

c 

NNOOLO 

1 

INT 

PREVIOUS  RRO  VRLUE 

c 

c 

NKONEN 

1 

INT 

RNO  VRLUE. UITH  A REOUNORNCY 
ROOEO 

c 

c 

JSRIfE 

1 

INT 

ROOULE  UITH  LARGEST  VALUE  OF 
RHO 

c 

c 

SRVRNU 

ITRUNC 

INT 

SYSTER  RELIRBILITY  FNC  UITH  R 
REOUNORNCY  IN  ROOULE  JSflVE 

c 

SRVR 

ITRUNC 

INT 

RELIABILITY  FNC  FOR  ROOULE 

^ — 

c 

JSRVE  UITH  R REDUNDANCY  ROOEO 

c 

c 

SRVNND 

I 

INT 

RRO  NITH  R REOUNORNCY  ROOEO  IN 
ROOULE  JSRVE 

c 

SYSL0 

1 

EXT-  C 

SYSTER  HEIGHT 

c 

SL0RX 

1 

EXT-NC 

RRX  SYSTER  HEIGHT 

c 

ORTRSr 1 ,J ) 

Nl NSS) 

EXT-NC 

REOUNORNCY  HEIGHT  FOR  ROOULE  J 

c 

I NO 

I 

INT 

LOOP  INDEX 

c 

I 

1 

INT 

INDEX 

c 

RFIXED 

1 

EXT-NC 

INITIAL  RELIRBILITY 

c 

SUOROUTINES 

CRLLEO 

c 

OSF 

- INTEORRTION  OV  SINPSONTS  RULE  ISSP)  1 

r>r>oo 


Rinoo-  RUIAtILirr  NOOELS  CHCUL0UOM 
’ i n i 7a BOSflH  * I* M i f i RL  i i fl n’  ON r * ' B s ■ * 


HRI  I): 


KEOPT 


anxEo 

SYSie 

SLBNX 

rauNc 


oaa  USER  INPUTS 
EXPENSE  OPTION  INOICRTOR 

1 NEIOHT 

OTHERKISE  COST 

initirl  srs  RELIRBIUTY 
INITIRL  HEIMr  I POUNDS) 

HRX  SYS  UEIOHT 
MISSION  LENOTH  I HRS). 


C ITRUNC 

NUM  OF  TINE  POINTS 

C ISUfi 

reouirenents  option 

t 

C 

1 

RT  LERST  one  SUe-8Y$  SPEC. 

C 

otheruise 

NO  SUB-SYS  SPEC 

C ISPT 

single  point  frilure 

REOUIRENENTS  OPTION 

C 

0 

REO  NOT'  IN  EFFECT 

C 

otherwise 

RED  IN  EFFECT 

C SPEC! 

nno  SYS  REOUIREHENT 

fHRS) 

C 

SPECIK) 

R(  ITRUNC) 

SUB-SYS 

REOt  Kzl .NSS 

C 

oefrult 

vrlue  is  0.0 

c 

SPECt  NSS»1  ) 

R( ITRUNC) 

SYS  REO 

OEFRULT  YRLUE  IS  0.0 

c 

NIK) 

CUNULRTIVE 

NUH  OF 

NODULES  TNRU  SUS-SYS  K 

TRUNCtTPaiHB730,. 


IF  rRFNL  .LE.  0.999) 


fllPHR=TRUNC/( ( -RLOOIRFNL ) ]bb.625) 


SPEC1zC0NSb730. 


iiiiiyiiiiwi 

IHMlmiiinll 


10-405 


r>nr>n|  looririooofni 


NSS:S 


N( I )=NE0U(PI 1 ) 


SET  NUn-OF  SUB  SYS 


RCCunULATE  N 


Nin=NEOuiPrn»(iii>n 


RCSUP 

ERU 

ESIO 

RRKEXP 

NZERO 

OC 

TB 


>0*  SIS  INPUTS  ' amm 
INITIAL  EXPENDABLES  NEIDHT  (POUNDS) 
EXPENDABLES  INITIAL  NERN  LIPETINE  (HRS) 
EXPENDABLES  INITIAL  STD.  OEY.  (HRS) 

NAX  NUN  OF  EXPENDABLE  INCRENENTS 
ORBITAL  BERN  NOTION  (RRO/HRS)  . 

duty  cycle 

BATTERY  TENP  (DECREES  KELVIN) 


RP 

AP 

AP 

AF 

AP 

other 

OTHER 


0 DEPTH  OF  OISCHAROE  (BETMEEN  0 AND  100) 

NC  TOTAL  NUN  OF  CELLS  (ALL  BATTERIES) 

PARRHETERS. NECESSARY  TO  COHPUTE  THE  CYCLES/HR  FACTOR 
NON  FIXED  RT  4.0E-11*  REF  NOOEL  5 


ERU=TRUNC 

ESIQ=TRUNC/6. 

NAXEXP=20 

DCs.l 

TB=TBI»273.  . 


c 

««s 

FIXED  CONSTANTS 

1 c 

SENSE/SHITCH  FAILURE  RATE 

LRRS:120. 


OOOOl 


PAYOFF  THRESHOLD.  R(TRUNC) 


RH02  = 


PAYOFF  THRESHOLD.  RNO 


EXPENDABLES  LIFE  INCR. 


nnr>nor> 


10-408 


10-410 


10-411 


or»r>o  orto  lr>r»r»r> 


SET  WUH  Of  SUB-SrSTEH  RED  TO  0 


RSRiO 


CONT.  ON  PC  u 


10-412  ■ 


10-413 


10-414 


COWT.  ON  PG 


U 


PfilDF 


-22. 


. . . 

''REPROPUCBmii^  OF  THE 
. 0BmiiL  PA#1s  POO]^ 


10-415 


rtnr»r»r» 


CONT.  ON  PG  IS 


PG  n 


10-416 


10-417 


MCpiU 


CALL 


C 

C 

C 


CONT.  M PG  18 

eQ..JJf: 22 


10-419 


10-420 


10-421 


10-422 


CONT.  ON  PO  22 


mRODUOIBILIW  OF  TH® 

mmMj  BAGE  IS  BOGB. 


10-423 


r%or> 


CONT  . OH  PO  ?3 

go  «ar  r? 


10-424 


r»nr»m 


22 


CONT.  ON  K 24 


gft  21E 22. 


10-4Z5 


10-4Z6 


oonj  [ooooo 


iO-428, 


10-429 


SUBROUTINE  R I HODIJ tOELH . I TRUNC .N I . I ROD f [OPT ] 


COMMON  /08C0M/  R( 3 1 ) .NR  I 60  ) . R II 3 I .60  ) .HI  3 I ) .RDI 3 1 ) .ROUMI 3 1 ) . 

‘ SnVRI'31  } .SnvNRUI  31  ) .RNEUI  3t)  .NMXI  60  1 .SRVMXf  60  I . 

COSTI 60).0UM) 3213) 


COMMON  /CHOSE/ 

COSTMI 5.60) . 
NCHOSEI  60) . 
THMI 4.60) 

OPI Al 1 1 .60  ) . 
SYSPAR  ( 6.60). 

.ICHOSEI 601  . 
SKOI 7.60)  . 

COHMON/PRTCOM/  ACCRCY. 

AM.  AN. 

BF. 

BS. 

CDPH7.2). 

CISTAR.  CTOT. 

dote  . 

DE. 

DRIUT. 

EOBSTR.  FEEINV. 

FEEOPS. 

PEER  . 

GSE. 

IREL.  ITRUNP.- 

MHDOLD.NAHEI 3.60). 

OPS. 

PAYINV.  PAYQUL. 

PAYR. 

PE. 

PMP. 

PMR.  POMERIG). 

PU. 

PURI  60) . 

OCP. 

OCR-.  R0L0I60).. 

SABMUT. 

SATAOP  . 

SATINV. 

SATR.  . SEIP.' 

SEIR. 

SKTAUI 6 ). 

: i : 

■ SSREU6). 

SUBEI7).  SUBT17). 

SUBUEI 7). 

SUBUPI 7) . 

TA, 

TAUI6.6)..  XOUMl. 

TC. 

TE. 

TF. 

TOOLR.  TOOLU. 

TOTOPS. 

TRUNC. 

TS. 

TTT.V0LUMEI61. 

VQLI 60) . 

HEIOHTI 6). 

xltot. 

XMEH.  XMEINV. 

XMEL  . 

XMEVL. 

XMEH. 

XHEHT.  XVEST 

REAL  LPM.LRMBRR.LRMS 


SUBROUTINE  RIMOO 
PURPOSE 

TO  COMPUTE  THE  RELIOBILITY  fUNCTION  FOR  MODULE 
REDUNORNCIES  ARE  flOOED  TO  THE  MODULE. 
usnoE 

CALL  RIMODI R.NR.J.DELH.ITRUNC.NT .lAOD.IOPT ) 
DESCRIPTION  OF  PARAMETERS 


AFTER 


-INPUT  MODULE  NUH 
-DELTA  TIME.  THE  TIME  INCREMENT 
-THE  NUM  OF  TIME  POINTS 
-INPUT  OPTION  PARAMETER 
-INPUT  OPTION  PARAMETER 
-INPUT  OPTION  PARAMETER 


J -INPUT  MODULE  NU 

DELH  -DELTA  TIME.  THE 

ITRUNC  -THE  NUM  OF  TIME 
NT  -INPUT  OPTION  PA 

lADD  -INPUT  OPTION  PA 

lOPT  -INPUT  OPTION  PA 

D r UQPK  C 

OPTION  PARAMETER  VALUE 


ACTION 


C 

NT 

1 

ONLY  COMPUTE  RELIABILITY  AT 

c 

TRUNCATION  TIME.  RETURN  VALUE  IN 

c 

Rl ITRUNC). 

C 

ITRUNC 

COMPUTE  reliability  AT  EACH  TIME 

c 

RETURN  VALUES  IN  R. 

c 

lAOO 

0 

ADO  NO  REDUNDANCIES  BEFORE  COM- 

c 

PUTING  THE  reliability  FUNCTION. 

c 

I 

ADD  REDUNORNCIES  BEFORE  COMPUT- 

tNG  The  RELIfiBIl  I-'Y  FUNCTION. 
lOPT  0 UNCOUPLE  nOOELS  1 fiNO  3. 

OTHER  COUPLE  HOOELS  1 OND  3. 

Gl08RL  VRRIBBLES  PfiSSED  THOUGH  COMMON 

R • -the  resul.ting  reliability  function 

NR  -INPUT  VECTOR  OF  THE  NUK  OF  REDUNORNC I E5 'a Y MODUIF 

NCHOS  -INITIRL  NUM  of  elements  in  MODULES 
SYSPRR  -MATRIX  OF  MODEL  PRRRHETERS 


SYSPRRI2.JJ:  MODEL  ID  FOR  J-TH  MODULE 
FOR  FUR.THER  DESCRIPTION  SEE  COMMENTS  PRECEEDING  THE 
PRRTICULRR  MODEL  OF  INTEREST- 
SUBROUTINES  RNO  SUBPROGRAMS  REQUIRED 

FORTRAN  SYS  FNCS'/.  EXP,  FLOAT.  INT,  SOR.T 
EXTERNAL  FNCSV.  GAMzGRMMR  FNC.  CERFrERROR  PNC 
SUBROUTINES'/!  NONE 


ROOT2:S0RTl  2.0) 
HOOrlNTI.SYSPRRl  2.3’)*  .1  ) 


t 10.90.120.160,10).  MOO 


c 

c 

MODELS  1 RNO  5 

c 

VARIABLES 

SIZE 

ORIGIN 

OEFN 

c 

LAMS 

1 

INT 

SENSE/SWITCH  FfilLURE  RATE 

c 

LAN 

1 

INT 

failure  RATE 

c 

0 

1 

INT 

DORMANCY  FACTOR 

c 

OC 

1 

INT- 

MODULE  duty  cycle 

c 

MI 

1 

INT 

MUM  OF  STANDBY  ELEMENTS 

C 

NI 

1 

INT 

NUM  OF 

ACTIVE  ELEMENTS 

C 

SYSPRR 

I ,J 

GLOBAL 

MODEL 

PARAMETERS  FOR  J-TH 

C 

MODULE 

c 

1:3 

VALUE  OF  lam 

c 

1:4 

VALUE  OF  LAMS 

c 

1:6 

VALUE  OF  0 

c 

c 

1:6 

VALUE  OF  DC 

LRMrSYSPfifll 3.J 1 


LRMSiSrSPARI 4 . J ) 
O^SYSPRR(S.J) 
OCrSYSPRRI G.J ) 
NREO^NCHOSEl J) 
NREDrNRI J ) 


10-431 


CONT . ON  PQ 


CONT.  ON  PC  S 


ItEPEODUCIBILrrY  OF  THE 
DEIGIUAL  PA6&  m VOma; 


10-433 


IF  n IN03'2>i lN03/2)).E0.r) 


BKs-M 


10-434 


flioisfLOUTiiin  

A«D2il  .*FLOflT((() 

A«D3:1 .*ARCI/O90i 

WKi&amaasi*!  .)aoaHtft»&3*fLOftT<wt  i )/t  6flwiatG2)«o<»n aRC3 ) i 


CONT.  ON  PC  7 


10-435 


or-»r» 


IF  IR00.E8.3) 


SUflOsSUftOstl  ( ) 


Rl I )sSURO 


CK  COURLING  OPTION 


IF  IN00.E0.3) 


J = J-I 


.RETURN 


oooooo 


10-437 


CONT.  m PG  10 

Pfi-.ag Li 


10-438 


10-439 


10-440 


RETURN 


c 

c 

HOOEL4 

c 

VRRIRBLES 

SIZE 

ORIOIN 

OEFN 

c 

FHU 

SC  ■ 

LOCAL 

RERN  EXPENRBLE  OEPLETION  TIRE 

c 

FSIC 

SC 

LOCRL 

STO.  OEY.  OF  DEPLETION  TIRE 

c 

SYSPRR 

I.J 

OLOBRL 

ROOEL  PRRRHETERS  FOR  J-TH 

c 

ROOULE 

c 

1:3  INITIAL  VALUE  OF  RU 

:4  INinni  VRLUE  OF  SIC 
:S  INCR.  VRLUE  OF  HU 

:6  INCR.  VALUE  OF  SID 

[ncr'reounoI 


Z = FL0ATI  NRU)»IADD) 


FHU  = SYSPRRI  3»J)4^Z>SrSPRR(  S«J) 

FSIC=S0RT(  I SYSPARI  4.J)aa2)4^2a(  SYSPRRI  6.  J)aa2  H 


CORPUTE  NEH  REL IRSI L I T [ES 


' - - - >14 


K=ITRUNC4-1-[ 

Z:l I OELHa(K-t ) 3*FHU}/(  ROOT2aFStO} 
RIK)=CERFIRBSIZ)) 


IF  I RBSi Z).0T.4.01 


R( Kl=l .O-R(K) 


RIK)  = 0.5a(l.-RrKn 


10-442 


COWMWUE 


I RETURN  } 


10-443 


onnnononi  |r>or>r)or>r>r> 


SUBROUTINE  0SF(  H.r  .2-.N0 IN ) 


SUBROUTINE  OSF 
PURPOSE 

JO-  CONFUTE  THE  VECTOR  OF  INTEORftL  VALUES  FOR  A GIVEN 
EQUIDISTANT  TABLE.  OF  FUNCTION  VALUES- 
USAGE 

CALL  OSF  fH.Y.Z.NblN) 

DESCRIPTION  DF  PARANETERS- 


H - THE  INCRENENT  OF  AROUNENT  VALUES. 

r - THE  INPUT  VECTOR  OF  FUNCTION  VALUES. 

■ iOENTicAL”irH''rr°^  integral  values,  z nay  be 

RENARKS  " DINENSION  OF'vECTORS  Y AND  Z. 

«!!9  5CTION  IN  CASE  NOIH  LESS  THAN  3.  . 

SUBROUTINES  AND  FUNCTION  SUBPRQGRANS  REQUIRED 


NONE 
NETHOO 

BEGINNING  WITH  Zl 1):0.  EVALUATION  OF  VECTOR  Z IS  DONE  BY 
NEANS  OF  SINPSONS  RULE  TOGETHER  UITH  NENTONS  3/8  RULE  OR  A 

rules.  TRUNCATION  ERROR  IS  OF 
N«sS  II-E.  FOURTH  ORDER  NETHOO).  ONLY  IN  CASE  N0IN=3 


INTRODUCTION  TO  NUNERICAL  ANALYSIS. 

« 5^5**9**-NILL.  NEU  YORK/TORONTO/LONOON.  19S6.  PP. 71-76. 

12)  R.ZURHUEHL.  PRAKTISCHE  NATHENATIK  FUER  INGENIEURE  UNO 
PHYSIKER.  SPRINGER.  BERLIN/GOETTINGEN/HEIDELBERG.  1963. 

rr  \ • 


suRUHTii Y( n*sutti«rt an  ' 
fluxi:ri4]»r<4) 

AUXUAUXI  »AUXl 

AUXUSURl  »HTa(  Y(  3)»AUXnri  S )) 

AUX2=HT|(  Y(  1 )»3.8‘7Sam2)*^r(Sn»2.62S«l  r<3)»r(4n»Y(&n 
SUn2=Yl5)*Y(5) 

SUR2=SUR2»SUR2 


t SUn2=AUX2-HTal  Yl  4)»SUR2*YI  en 
It  t no. 

AUXsYl 3)«YI  3) 

AUX:AUX»AUX 

Z(2):SUR2>HT«(  Y(2}»AUXi-Y(4)} 
Zf  3)=SUR1 
Zl 4 ) = SUH2 


llilll 


INTEOAATION  LOOP 


SURUAUXl 
SUn2:AUX2 

AuiuYi  i-n^Yt  i-n 

AUXUAUXt»AUXl 

AUXt=SUni*Hrat  Y(  I-2nRUXI»Y(  D) 

Zl i-2):suni 


IFI  [-N0Iin3*6»6 


AUXZrYI  n^Yi  I ) 


AUX2  = AUX2«^AUX2 
AUX2  = SUN2*HTa(  Yl  I-l  )»AUX2»YII«-n  ) 


10-447 


subroutine  dpi  r IPIC.{ERK>I.TER«NCOIlf  .ICNOSE.tiCHOSE  .MOMBT  ) 
OINENSION  IPIC(2)i  ICH08E(2)»  WCONFtB)*  WCHOSEI2) 


CORNON 

/USER3/RRRRrNI 11 .3) 

tprfl 

X 

. BTRRX. 

NNSEO. 

OPSRS. 

SCSFL.  ' 

^ ^ 

CORNON 

/USERI/ 

RPOOEE. 

CORRRT. 

OIRRRX. 

EEOUT(B). 

EPRE . 

EORIUT . 

EOHIXL. 

EOniXL. 

EORIZL . 

EORZHT . 

E0H2XL . 

E0R2U. 

E0R2ZL. 

FE. 

IRGNCr. 

IDE8U0. 

ISRT.OR., 

HB12S.H* 

OPTERP. 

0R8INC. 

PERICE. 

RICRO. 

RELRE. 

SPEC)  6)-* 

SPECl  . 

T, 

XCCSRl . 

• 

XRER. 

KREU 

CORRON  /BTMN/  RCSSN. 

RCSNP* 

RLT. 

RRER. 

BATCRP. 

BITRATi 2) . 

CLIFE. 
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